//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,c):=ReadReal2();
write('P=',a+sqrt(c*c-a*a)+c);
end.
Программа выводит сами числа и их квадраты
Program Square5;
Uses crt;
var i:integer;
begin
clrscr;
for i:=1 to 5 do
writeln(i,' ',i*i );
readkey;
end.
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
Photoshop,Gimp 2,На телефоны Glitchr,SLMMSK
Var a, b: integer;
begin
write('Введите a, b>>');
read(a, b);
if a<b then
begin
while (b-1>a) do
begin
b:=b-1;
write (b, ' ');
end;
end
else write('Неверные условия')
<span>end.</span>