Program Integer13;
var x,a,b,c,p:integer;
begin
Writeln('Vvedite chislo ');
readln(x);
a:=x div 100;
c:=x mod 100;
p:=c*10+a;
Writeln ('Result= ',p);
readln;
end.
var
n, s: Integer;
begin
Write ('Введите натуральное число: ');
Read (n);
s := trunc (sqrt (n));
Writeln ('Целый квадратный корень из ' + IntToStr (n) + ' = ' + IntToStr (s));
Readln;
end;
Монитор системный блок клавиатура мышка
1. Shift
<span>2. <= Backspase, => Delete.</span>
var i,s:integer;
begin
for i:=1 to 10 do s:=s+i;
writeln (s)
end.