Решить 1. напишите программу, вычисляющую площадь прямоугольника. с клавиатуры вводятся два действительных числа - стороны прямоугольника. необходимо вычислить его площадь и вывести на экран. вывод должен быть отформатирован следующим образом: под число отводится 10 знаков, а под вещественную часть - 3. 2. с клавиатуры вводятся 3 целых числа. определить количество положи¬тельных чисел в этом наборе.
{
программа, вычисляющая площадь прямоугольника.
}
var
a,b: real;
begin
write('Стороны прямоугольника ');
read(a,b);
writeln(' Площадь фигуры = ',a*b:10:3);
end.
Тестовое решение:
Стороны прямоугольника 5.3 6.7
Площадь фигуры = 35.510
{
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел
в этом наборе.
}
var
a,i,n: integer;
begin
for i:=1 to 3 do begin
write(i,'число = ');readln(a);
if a>0 then n:=n+1;
end;
writeln(' Положительных :',n);
end.