Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.
А) необходимо
Б)достаточно
В)необходимо
Г)необходимо
Д)необходимо
А=12
В=12+19=31
С=37-31+10=16
С=35-16=19
D=19+6=25
К=25+15=40
К=40
Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>