Ответ:
32
Объяснение:
на каждом месте числа может быть одна из двух цифр. таких мест 5. Значит ответом будет 2*2*2*2*2=32
program dz2;
var a,b,c,d,f,max:Integer;
begin
Writeln('введи число');
read(a);
b:= a div 1000;
c:= (a div 100) mod 10;
d:= (a div 10) mod 10;
f:= a mod 10;
max:=b;
if b<c then
max:=c;
if c<d then
max:=d;
if d<f then
max:=f;
Write(max);
end.
Держи ))) удачи )))
var x, y, d: real;
begin
read(x,y);
d := sqrt( sqr(x) + sqr(y) ); {находим длину отрезка от центра координат}
if d <= 1 then
writeln('Входит в Д1')
else if ( x >= 2 ) and ( x <= 3 ) and ( y >= 0 ) and ( y <= 1 ) then
writeln('Входит в Д2')
else
writeln('Не входит');
end.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var k:=0;
var n:=ReadInteger();
var nmax:=0;
while n<>0 do begin
Inc(k);
if n mod 10 = 0 then
if n>nmax then nmax:=n;
n:=ReadInteger()
end;
var cntrl:=ReadInteger();
Writeln('Получено ',k,' чисел');
Writeln('Полученное контрольное значение: ',cntrl);
Writeln('Вычисленное контрольное значение: ',nmax);
if cntrl=nmax then Writeln('Контроль пройден')
else Writeln('Контроль не пройден')
end.
<u><em>Тестовое решение:</em></u>
53
16
40
9
10
32
74
0
40
Получено 7 чисел
Полученное контрольное значение: 40
Вычисленное контрольное значение: 40
Контроль пройден