Ar
a, b, c, d, n : integer;
begin
write('введите первое число ');
readln(a);
write('введите второе число ');
readln(b);
write('введите третье число ');
readln(c);
write('введите четвёртое число ');
readln(d);
n:=a;
if b>n then n:=b;
if c>n then n:=c;
if d>n then n:=d;
writeln('Большее из чисел равно ', n);
end.
ответ четыре так как получается 1100011
Их различия это цвета, форма и размеры
<h3><u>Ответ</u>: олимп, лимон, леска.</h3>
<em>* Подробнее в приложении.</em>
var i,res,k:integer;
a:array[1..10] of integer;
begin
k:=0;
for i:=1 to 10 do
a[i]:=random(10,50);
res:=1;
for i:=1 to 10 do
if (a[i] mod 2=1) and (a[i] mod 5=0) then begin
res:=res*a[i];
k:= k+1;
end;
if k=0 then write('Таких чисел нет') else
write(res);
end.