Vladiener
6) var a,i,k,N,a1,a2,a3: integer; begin writeln('Введите количество чисел'); readln(N); k:=0; for i:=1 to N do begin writeln('Введите число'); readln(a); a1:=a div 100; a3:=a mod 10; a2:=(a-a1*100-a3) div 10; if (a1<a2)and(a2<a3) then k:=k+1; end; writeln('Ответ: ', k); readln end.
11) var a,i,k,N,a1,a2,a3: integer; begin writeln('Введите количество чисел'); readln(N); k:=0;for i:=1 to N do begin writeln('Введите число'); readln(a); a1:=a div 100; a3:=a mod 10; a2:=(a-a1*100-a3) div 10; if (a1+a2+a3) mod 2=0 then k:=k+1; end; writeln('Ответ: ', k); readln end.
Answers & Comments
begin
writeln('Введите количество чисел'); readln(N);
k:=0;
for i:=1 to N do begin
writeln('Введите число'); readln(a);
a1:=a div 100; a3:=a mod 10; a2:=(a-a1*100-a3) div 10;
if (a1<a2)and(a2<a3) then k:=k+1;
end;
writeln('Ответ: ', k);
readln
end.
11) var a,i,k,N,a1,a2,a3: integer;
begin
writeln('Введите количество чисел'); readln(N);
k:=0;for i:=1 to N do begin
writeln('Введите число'); readln(a);
a1:=a div 100; a3:=a mod 10; a2:=(a-a1*100-a3) div 10;
if (a1+a2+a3) mod 2=0 then
k:=k+1;
end;
writeln('Ответ: ', k);
readln
end.