Опубликовано 22.08.2017 по предмету Математика от Гость >> <<

Помогите пожалуйста 2. Построить и написать программу которая выведет на экран все целые числа от 4 до 32. 3. Написать программу решения задачи Выведите на экран сумму всех чисел кратных 11, интервале от 8 до 99.

Ответ оставил Гость

РЕШЕНИЕ
Задача 1
ni : byte; - это и есть ЦЕЛЫЕ числа
begin
for n:=4 to 32 do write(n:3);
writeln; - перевод строки
readln(n); - остановка экрана
end.
Задача 2
const 
n=11;
var
s: real
i:integer
begin
s:=0; -обнуление счетчика суммы
for i:=8 to 99 begin do
if (ROUND(i/n)*n - n) = 0 then s:=s+i; - кратное n - нет остатка
end;{if}
writeln(Сумма чисел кратных,n:2, равна,s:4);
readln(i);
end.