1. var s, i: integer;
begin
for i := 1 to 100 do
s := s + i;
writeln('s=', s);
end.
2. var i, r: integer;
begin
writeln('Таблица умножения на 3');
for i := 1 to 10 do
begin
r := i * 3;
writeln(i, ' * 3 = ', r);
end;
readln;
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=21;
repeat
n+=1
until (n mod 7=0) and (n mod 10=1);
n.Println
end.
<u>Результат</u>
91
Ответ:
В 1296000 пикселей 1,29 мегапикселей
Объяснение:
Бант-кант-карт-корт-кора-коса
миг-мис-бис-бес-вес-век
Begin
writeln(' * ');
writeln(' * * ');
writeln('* *');
writeln(' * * ');
writeln(' * ')
end.