1)1 (т.к программа выводит наименьшую температуру)
2)7 (т.к программа требует выведения количества дней, в которых температура была меньше или равна 15 градусов)
Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.
Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40
Var x1,x2,y1,y2,a,b,s,p: real;
begin
write('Введите x1: ');
readln(x1);
write('Введите y1: ');
readln(y1);
write('Введите x2: ');
readln(x2);
write('Введите y2: ');
readln(y2);
a:= abs(x2-x1);
b:= abs(y2-y1);
p:=2*(a+b);
s:=a*b;
writeln('Периметр прямоугольника: ', P);
writeln('Площадь прямоугольника: ', S);
end.
У меня получилось 1 решение при 001
_______________