Трехзначное десятичное число оканчивается цифрой 3.если эту цифру переместить на первое слева место в числе , то есть с нее будет начинаться запись нового числа , то это новое число будет на единицу больше утроенного исходного числа . найдите исходное число

var s,r: real;

begin

writeln('введите значение r: ');

readln(r);

s: =pi*sqr(r);

writeln('целая часть s = ',int(s));

writeln('дробная часть s = ',frac(s));

writeln('округление s = ',round(s));

end.

Program pr; uses crt; var a: array[1..7] of real;       i: integer;       begin writeln('введите массив'); for i: =1 to 7 do readln(a[i]); for i: =1 to 7 do write(a[i],'|'); readln; end. ============================================ program pr; uses crt; var a: array[1..10] of integer;       i: integer;       begin writeln('введите массив'); for i: =1 to 10 do readln(a[i]); for i: =1 to 7 do begin if a[i] mod 2< > 0 then write(a[i],'|'); end; readln; end.

1: var       count,i: integer;       a: array [1..30] of integer; begin for i: =1 to 30 do begin       a[i]: = -100 + random(206);       writeln('a[',i,'] = ', a[i]); end; for i: =1 to 30 do       if(a[i] mod 2 = 0) then inc(count); writeln; writeln; writeln('кол-во четных элементов: ', count); end. 2 : const       n = 30; var       count,i: integer;       a: array [1..n] of integer; begin for i: =1 to n do begin       a[i]: = -15 + random(22);       writeln('a[',i,'] = ', a[i]); end; for i: =1 to 30 do       if(a[i] mod 3 = 0) then a[i]: =-a[i]; writeln; writeln; for i: =1 to n do       writeln('a[',i,'] = ', a[i]); end.