Поделитесь своими знаниями, ответьте на вопрос:
Выполнять через файлы: 2. автомат принимает трехзначное число, вычисляет сумму двух старших разрядов (сотен и десятков), а также сумму двух младших разрядов (десятков и единиц затем эти суммы выводятся в порядке убывания (без пробелов). составьте программу, которая моделирует работу автомата. 3. спортсмен-лыжник начал тренировки, пробежав в первый день 10 км. каждый следующий день он увеличивал длину пробега на p процентов от пробега предыдущего дня (p — вещественное, 0 < p < 50). по данному p определить, после какого дня суммарный пробег лыжника за все дни превысит 200 км, и вывести найденное количество дней k (целое) и суммарный пробег s (вещественное число).
procedure RectangleSquare;
var
a,b:double;
begin
Write('Введите через пробел длины сторон прямоугольника: '); Read(a,b);
Writeln('Площадь прямоугоьника равна ',a*b)
end;
var
i:byte;
begin
for i:=1 to 3 do RectangleSquare
end.
Тестовое решение:
Введите через пробел длины сторон прямоугольника: 3 7
Площадь прямоугоьника равна 21
Введите через пробел длины сторон прямоугольника: 12.4 15.8
Площадь прямоугоьника равна 195.92
Введите через пробел длины сторон прямоугольника: 14 12.5
Площадь прямоугоьника равна 175