// Pascal ABC.NET
var
n1, n2, sum : integer;
begin
sum := 0;
readln(n1, n2);
sum := n1 + n2;
if sum < 5 then
writeln('Привет');
if sum > 5 then
writeln('Пока');
end.
Обработки информации наверное.
Var
S:real;
N,i:integer;
Begin
Write('N = ');
ReadLn(N);
S:=1;
For i:= 1 to N do
S:=S+Sqr(i+N);
WriteLn('S = ',S);
End.
1 см=576
получается 5184 точ *6912 точ
1 бит=1 точка
4479 кб-всего информационный объём
Безусловный цикл - цикл, выход из которого в программе не предусмотрен.
Цикл с предусловием - цикл, условие которого проверяется перед выполнением тела цикла. С постусловием - проверяется после.