PASCAL ABC. Вводится натуральное число N. Получить новое число M - число перевертыш. Например, N=125, тогда M=521.

var a,b,i,s: integer;

begin

writeln('введите 2 числа');

readln(a); readln(b);

s: =0;

if a< b then

for i: =a to b do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

if a> b then

for i: =b to a do

  begin

  if i mod 2 = 0 then

  s: =s+1;

  end;

writeln(s)

end.

v=24*640*480 = 7372800 бит.

737200: 8 =   байт.

921 600: 1024 = 900 кб

900: 1024 = 0,88 мб

2 мб : 0,88 мб = 2,28.

количество страниц : 2

var n,i: integer;

begin

  read(n);

  for i: = 2 to n-1 do

      if n mod i = 0 then writeln('no');

end.

var n,i: integer;

s: string;

begin

  read(s);

  for i: = 1 to length(s) do

      if s[i]="a" then n: =n+1;

  writeln(n);

end.

program z;

var a,b,a: real;   {при желании можна real поменять на integer }

begin

writeln ('vvedit a i b');

readln (a,b);

if a< b then begin

  c: =a;             {3-я переменная нужна чтобы не потерять неременную a} 

  a: =a*b;

  b: =b+c;

  writeln (a,b);       {вывод даных}

readln                 {задержка экрана}

end;

if a> b then begin   {neвкоем случае не менять эту строчку на "else"}

  c: =b;

  b: =a*b;

  a: =a+c;  

writeln (a,b);

readln  

end   {перед "end" точка з запятой не обязательная}

end.