Программирование. язык pascal. даны стороны треугольника. найти его периметр. дано время в секундах. вывести на экран запись времени в часах. m килограмм конфет стоят n рублей. сколько стоит 1 кг конфет? сколько конфет можно купить на к рублей?
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin // про треугольник var a,b,c:real; Read(a,b,c); Writeln(a+b+c);
// про время var t:=ReadInteger('Время в секундах равно'); Writeln('Это составляет ',t/3600,' час.');
// про конфеты var m:=ReadReal('M='); var n:=ReadReal('N='); var k:=ReadReal('K='); var p:=n/m; Writeln('Стоимость 1 кг конфет, руб.: ',p); Writeln('На ',k,' руб. можно купить ',k/p:0:3,' кг. конфет') end.
// Внимание! Если программа не работает, обновите версию!
begin
// про треугольник
var a,b,c:real;
Read(a,b,c); Writeln(a+b+c);
// про время
var t:=ReadInteger('Время в секундах равно');
Writeln('Это составляет ',t/3600,' час.');
// про конфеты
var m:=ReadReal('M=');
var n:=ReadReal('N=');
var k:=ReadReal('K=');
var p:=n/m;
Writeln('Стоимость 1 кг конфет, руб.: ',p);
Writeln('На ',k,' руб. можно купить ',k/p:0:3,' кг. конфет')
end.