Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
PROGRAM Z;
var a,b,c:integer;
begin
readln(a,b);
If a<b then c:=a+b
else c:=a-b;
writeln(c) ;
end.
read (n);
i : = 1;
repeat
writeln(i*i);
i : = i + 1;
untill i*i > n
в результате выполнения первого цикла
for i: =1 tо n do a[i] : = i
в массиве будут находится числа от 1 до 10 по возрастанию
j: =1
затем 9 раз сравнивается предыдущий элемент с последующим и если последующий больше предыдущего то j увеличивается на 1
так как в массиве каждый последующий элемент больше предыдущего то j увеличится на 9
значит j станет равно 10
Популярные вопросы