Программа на паскале:
var x: integer; s: real;
begin
readln(x);
s:=3.6/20*x*365;
writeln(s:4:1, ' гр');
end.
Пример:
5
328.5 гр
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Программа на паскале:
var x: integer; s: real;
begin
readln(x);
s:=3.6/20*x*365;
writeln(s:4:1, ' гр');
end.
Пример:
5
328.5 гр