Найти ошибку дано 3 цифры распечатать все двухзначные числа begin program: adf; begin var a,b,c : =in - id838539520230419 от Принцеска96 19.04.2023 16:10

Question

Информатика: Найти ошибку дано 3 цифры распечатать все двухзначные числа begin program: adf; begin var a,b,c : =in tege; begin writeln ( write ); read (a,b,c); writeln (a,b); writeln (b,a); writeln (a,c); writeln (c,a); writeln (b,c); writeln (c,b); end

Принцеска96 · Accepted Answer

Program n;
var
   m: array[1..12] of integer;
   i,k: integer;
begin
randomize;
k:=0;
for i:=1 to 12 do begin
   m[i]:=random(41)+150; write(m[i],' ');
if m[i]>180 then k:=k+1;
end; writeln;
if k>0 then writeln('Такой ученик есть) else writeln('Такого ученика нет');
end.

program n;
var
   m: array[1..12] of integer;
i,k: integer;
begin
randomize;
k:=0;
for i:=1 to 12 do begin
m[i]:=random(41)+150; write(m[i],' ');
   if m[i]<160 then k:=k+1;
end; writeln;
if k>0 then writeln(k,' ученик(ов/а) имеют рост меньше 160') else writeln('Учеников, рост которых меньше 160, нет');
end.

Найти ошибку дано 3 цифры распечатать все двухзначные числа begin program: adf; begin var a,b,c : =in tege; begin writeln ('write'); read (a,b,c); writeln (a,b); writeln (b,a); writeln (a,c); writeln (c,a); writeln (b,c); writeln (c,b); end

MOGZ ответил