Программирование. язык 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.
// не совсем понял условие по которому оперделяется нужный индекс// мне показалось, что это умножение, если не так, то сам исправишь условие// выхода из цикла using System;
У меня получилось вот что (смотри скриншоты листинга программы и результата работы этой программы): uses Crt; const n = 10; var A: array [1..n] of integer; i: integer; begin ClrScr; Randomize; WriteLn ( ' Massiv I: '); for i:=1 to n do begin A[i] := 1+random(n); Write (A[i]:4); end; WriteLn; WriteLn ( ' Massiv II: '); for i:=1 to n do begin if (A[i] mod 2 =0) then A[i]:=0 else A[i]:=3*A[i]; Write (A[i]:4); end; ReadLn; end.
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/db195.jpg)
![Составьте программу, которая запол няет массив a [1..10] случайными целыми числа ми в диапазоне от 1](/tpl/images/0478/1593/0a7c0.jpg)
// Внимание! Если программа не работает, обновите версию!
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.