Запишите следующие числа в естественной форме: а) 1,1285 .105 б) 61,103 . 10-2 в)2,4700Е+3 г) 36,7872Е-4

Question

Информатика: Запишите следующие числа в естественной форме: а) 1,1285 .105 б) 61,103 . 10-2 в)2,4700Е+3 г) 36,7872Е-4

OvenNeON · Accepted Answer

Первый вариант:

Var
   A:real;
   k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.

Var k:integer;
    S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.

Пример работы программы:

Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.

MOGZ ответил