1833 год , Чарлз Бэббидж,Англия
Var x,z,k:integer;begin
writeln ('введите число');readln(x);k:=0;while x<>0 dobeginz:=x mod 10;x:=x div 10;if x mod 2=0 thenk:=k+1;end;writeln('кол-во чётных чисел :',k);end.
Var
m,n: array [1..15] of integer;
a,i,max: integer;
begin
readln(a);
writeln('Исходный массив:');
for i:= 1 to 15 do
begin
m[i]:= random(20);
n[i]:=m[i]*a;
if (n[i]>max) and (i mod 2=1) then max:=n[i];
write (m[i],' ');
end;
writeln;
writeln('Новый массив:');
for i:= 1 to 15 do write (n[i],' ');
writeln;
writeln('Максимальный нечетный: ',max);
<span>end.</span>
Ответ:
В книге Эрика Мэтиза .
https://codernet.ru/books/python/izuchaem_python_programmirovanie_igr_vizualizaciya_dannyx_veb-prilozheniya/
страница 225
Третяя правильная ну последняя