Для первого решу,а дальше сам.... ПРОГРАММА ДЛЯ ПАСКАЛЯ!!!!!!!!!!
Program dvoechnik;
var a,b,s,p:real;
begin
writeln ('Площадь прямоугольника');
writeln ('Введите ширину');
readln (a);
writeln ('Введите длинну');
readln (b);
s:=a*b;
p:=(a+b)*2;
writeln ('S=',s);
writeln ('P=',p);
end.
Ответ:
1
Объяснение:
связь между сдачей математики и информатики
var n,i,s,k:integer;
Begin
for i:=1 to 7 do Begin
read(n);
if n>0 then k:=k+1;
if n<0 then s:=s+n;
end;
writeln(k,s);
End.
В конце можно добавить вывод числа i - номера дня, в который спортсмен пробежит больше 20 км в первый раз.