Var b; integer;
begin
writeln ("В каком году появились первые ЭВМ?'');
readln (b);
if b=1943 then
writeln ('Вы правы!')
else
writeln ('<span>Вы ошиблись, прочитайте свою рабочую тетрадь ещё раз!</span>');
end.
Var a:integer;
begin
readln(a);
writeln((a mod 10), ((a mod 100) div 10), (a div 100));
<span>end.</span>
Ответ А14
Разберёмся:
по А будет доходить 15 + 2 + 2^21/( 0,25 * 8) = 15+2+1 =18 с
по Б будет доходить 8 * (8/2) = 32 с