A B 1 1 2 ТРЕУГОЛЬНИК Стороны Значение A 5 3 4 B 6 5 С 7 6 Периметр 18 5 7 Меньшее значение из сторон 8 Большее значение из сторон 7 Выберите формулы для ячеек В6 и В8 Верных ответов: 2 =СУММ(B3;B5) =МАКС(ВЗ:B5) =СУММ(В3:B5) =МАКС(B3-B5) =СРЗНАЧ(В3:B5) Активация, Vindows
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 руб.
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 руб.