//Pascal ABC.NET v3.0
s.Reverse.Print(''); //переворачивает и выводит
или
for i:=1 to length(s) div 2 do
begin;
c:=s[i];
s[i]:=s[length(s)-i+1];
s[length(s)-i+1]:=c[1];
<span>end;</span>
Объем памяти = 10*8*12000 бит = 10*8*12000/8 байт = 120000/1024 Кбайт ≈ 117,2 Кбайт = 117,2/1024 Мбайт ≈ 0,11 Мбайт
Для защиты от вирусов которые попадают в компьютер из интернета
Вместо Х там должно быть 2
<span>uses crt;
var a,b,c: real;
k: byte;
begin
k:=0;
write('a=');
readln(a);
if round(a)=a then k:=k+1;
write('b=');
readln(b);
if round(b)=b then k:=k+1;
write('c=');
readln(c);
if round(c)=c then k:=k+1;
writeln(k);
readln;
end<span>.</span></span>