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

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 руб.

0 0

4 года назад

ПОМОГИТЕ РЕШИТЬ!!! Информатика 7 класс: Скорость передачи данных 512 бит/с, время передачи 16 с. Определить информационный объё

392011 [1.6K]

512*16=8192(бит)
8192/8=1024(байт)
1024/1024=1(Кбайт)
Ответ:1 Кбайт

0 0

1 год назад

Определите характеристики процессора...​

Определите характеристики процессора...