===== PascalABC.NET =====
begin
var (a, b) := ReadReal2('Введите два неотрицательных числа:');
if a = b then
Println('Введенные числа равны')
else
Println('Квадрат наибольшего:', Sqr(Max(a,b)),
' корень квадратный наименьшего:', Sqrt(Min(a,b)));
end.
const k=10;
var i,n,m: integer;
a: array[1..k] of integer;
begin
n:=0;
m:=0;
for i:=1 to k do
a[i]:=random(21);
for i:=1 to k do
write(a[i],' ');
writeln();
for i:=1 to k do
begin
if ((a[i] mod 2 =0) and (a[i]<>0)) then n:=n+1;
if (a[i] mod 2 <> 0) then m:=m+1;
end;
writeln('Четных : ',n,' Нечетных : ',m);
end.
В первом задании переменная a будет равна 7, а во втором задании переменная a будет равна 8.
Я бы решила так .
Сама запись решения с объяснениями, поэтому, возможно, нужно как-то по-другому записать
Первый автомат появился в 1881 году,его создал знаменитый русский математик и механиком академиком
П.Л.Чебышевым.