В цикле указано, что пока S не станет меньше 400, будет отниматься 1 от S и прибавляться 3 к N, в итоге будет выведено 15.
Var
i:integer;
begin
Writeln('Число Квадрат');
i:=14;
while i<=24 do
begin Writeln(i:4,sqr(i):9); i:=i+2 end
end.
<em><u>Результат выполнения программы:</u></em>
Число Квадрат
14 196
16 256
18 324
20 400
22 484
24 576
Var a,b,c:real;
begin
writeln('введите два числа');readln(a,b);
c:=a+b;
writeln('сумма=',c);
end.
<span>Естественные - языки общения (Примеры : русский, английский, китайский)
Формальные - это языки программирования, ноты, жесты (язык глухонемых)</span>
Первое число в паре -- 9-литровый сосуд
Второе число в паре -- 5-литровый сосуд
0 0 -> 0 5 -> 5 0 -> 5 5 -> 9 1 -> 0 1 -> 1 0 -> 1 5 -> 6 0