Program z1;
var s,p,a,b,c:real;
begin
write('Введите катеты: ');
read(a,b);
c:=sqrt(sqr(a)+sqr(b)); // гипотенуза по т.Пифагора
writeln('Гипотенуза = ',c);
p:=a+b+c;// периметр
writeln('Периметр = ',p);
s:=a*b; // площадь
writeln('Площадь = ',s);
<span>end.
Жду спасибо)</span>
Var a,b,c:integer;
begin
c:=1;
for a:=5 downto 2 do begin
for b:=5 downto c do begin
write(a);
end;
writeln('');
c:=c+1;
end;
end.
Нужно одновременно нажать клавиши Ctrl+Alt+Del
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('Количество пятерок в числе равно ',
ReadInteger('n=').ToString.Where(c->c='5').Count)
end.
<u><em>Тестовое решение:</em></u>
n= 3456453
Количество пятерок в числе равно 2