//Pascal ABC.NET v3.1 сборка 1172
//Продвинутый вариант
begin
writeln(range(100,999).Where(x -> x mod 7=0).Where(x -> x mod 9=0).Where(x -> x mod 5=0).Sum);
end.
//"Школьный" вариант
Var
i,s:integer;
begin
for i:=100 to 999 do
if (i mod 5=0) and (i mod 7=0) and (i mod 9=0) then s:=s+i;
writeln(s);
end.
Вывод:
1890
Не понятно,что. Ты написал(а),вот 2).Что имеется ввиду?
использовать Робот
алг
нач
нц пока сверху свободно; вверх кц
нц пока сверху стена; влево кц
вправо
нц пока сверху стена
закрасить
нц пока снизу свободно
вниз
закрасить
кц
нц пока сверху свободно
вверх
кц
вправо
кц
кон
Var
a, b, i:integer;
Begin
write('Введите значения a и b: ');
read(a, b);
writeln('Цикл for');
for i := b downto a do write(i*i*i, ' ');
writeln();
writeln('Цикл while');
i := b;
while i >= a do
begin
write (i*i*i, ' ');
dec(i);
end;
writeln();
writeln('Цикл repeat');
i:=b;
repeat
write(i*i*i, ' ');
dec(i)
until i < a
writeln();
End.