Pascal
var
a,b : integer;
r : boolean;
begin
readln (a);
r := true;
b := a mod 10;
While a > 0 do
begin
if a mod 10 <> b then
begin
r := false;
a := 0;
end;
a := a div 10;
end;
if r then
writeln ('Все цифры числа одинаковы')
else
writeln ('Цифры числа различны');<span>
end.</span>
Решения:
1)
2212000 = 2, 212 *10^6 (10^6 — это 10 в степени 6)
мантисса =2,212
порядок = 6
Валя, Вася,Вова,вода,волк,Наташа,панамка ананас
Вот, они все не меньше 50 и чётные
74, 86, 122