Прошу, допоможіть, будь ласка! Даю 40 баллів! Виконати у середовищі Pascal.
1. Скласти програму яка з чисел від 10 до 100 виводить на екран ті, що діляться на 5.
2. Скласти програму яка для кожного числа від 20 до 99 друкує на екрані суму його цифр.
Ответы
Ответ дал:
2
Відповідь:
Виведення чисел від 10 до 100, що діляться на 5:
program div5;
var i: integer;
begin
for i := 10 to 100 do
begin
if (i mod 5 = 0) then
writeln(i);
end;
end.
Виведення суми цифр для кожного числа від 20 до 99:
program digitsum;
var i, sum, ones, tens: integer;
begin
for i := 20 to 99 do
begin
ones := i mod 10;
tens := i div 10;
sum := ones + tens;
writeln(i, ' : ', sum);
end;
end.
У цій програмі ми використовуємо операції ділення і взяття остачі від ділення, щоб отримати розряди десятків і одиниць для кожного числа. Потім ми додаємо ці розряди, щоб отримати суму цифр.
idjxhowo:
Дякую Вам велике!!!!
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад