Ответ:
var x,a,h,s:real;
begin
writeln('Введите кол-во часов');
readln(h);
writeln('Введите сумму за один час');
readln(x);
s:=0;
if h<=38 then s:=x*h;
if h>38 then S:=x*38+(38-h)*x*1.5;
writeln('Сумма=',s);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
var x,a,h,s:real;
begin
writeln('Введите кол-во часов');
readln(h);
writeln('Введите сумму за один час');
readln(x);
s:=0;
if h<=38 then s:=x*h;
if h>38 then S:=x*38+(38-h)*x*1.5;
writeln('Сумма=',s);
end.