Знайдіть відомості та створіть пам'ятку для уроків трудового навчання: у
текстовому процесорі - як обирати режим прання одягу залежно від позначень,
наведених на одязі; у редакторі презентацій - як обирати режим прасування
одягу залежно від тканини, з якої виготовлено одяг, та позначень, наведених на
одязі.(Информатика

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

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

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

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