1) for i:=20 to 35 writeln(i);
2) read(b);
for i:=10 to b writeln(i*i);
3) for i:=1 to 10 write(20,',');
Если на клавиатуре написать это слово переключив её на английский язык, получится слово augud которое переводится как дыры.
(можете проверить!)
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
if (x mod 2 = 0) then writeln('true')
else writeln ('false');
end.
(в программе 2 таких чисел не существует)
Program n_2;
var x, y:integer;
begin
readln(x);
y:=x*x;
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
x:=x*x*x;
if (x=y) then writeln('true')
else writeln ('false');
end.
Program n_3;
var a, b, c:integer;
begin
read(a, b, c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln ('false');
end.
Если прописать в паскаль этот алгоритм через цикл while (цикл с <span>предусловием)</span>, то ответ будет B=25.
var a, b: integer;
begin
a := 2;
b := 0;
while a <> 7 do
begin
a := a + 1;
b := b + a;
end;
writeln(b);
end.
В первом варианте решения не объявлены используемые переменные, во втором варианте пропущено собственно вычисление периметра (инициализация переменной p), так что верным является только третий вариант.