Перепишите с pascal на
write('Введите a1,a2,a3,a4: ');
var a1,a2,a3,a4,n:integer;
readln(a1,a2,a3,a4);
if a1=a4 then
begin
if a1=a2 then n:=3 else n:=2;
end
else if a1=a2 then n:=4 else n:=1;
writeln('Номер числа: ',n);
end.

274

421

Посмотреть ответы 1

Ответы на вопрос:

nazaroline

Информатика

4,8(5 оценок)

Program n1; const n=8; var a: array [1..n] of integer; i,sum: integer; begin sum: =0; for i: =1 to n do begin write('введите ',i,' число: '); readln(a[i]); end; writeln('эл. с чет номерами: '); for i: =1 to n do if i mod 2=0 then write(a[i],' '); end.