Алг
нач цел i,j,s; цел таб a[1:3,1:3]
s:=0
нц для i от 1 до 3
нц для j от 1 до 3
a[i,j]:=int(rnd(10))
вывод a[i,j],' '
если i=2 то s:=s+a[i,j] все
кц
вывод нс
кц
вывод 'Сумма равна ',s
кон<span>
</span>
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Abs(ReadInteger('Введите число:')).IsEven.Println
end.
<u>Примеры</u>
Введите число: 12341
False
Введите число: -6345238
True
А) 212.148.178.75
б) 190.163.98.42
Вроде так.
Var i: byte;
begin
randomize;
for i := 1 to 10 do
writeln(random(100)+50);
end.
За 5 минут Катя набрала 100 симв.
Дальше они набирают одновременно, и Маша догоняет Катю на 20 символов
каждую минуту.
Разрыв в 100 символов она догонит за 5 минут.
Ответ: через 10 минут после того, как начала печатать Катя, они напечатают
<span>одинаковое количество - 200 символов.</span>