Заполни пропуски в программе. вывод на экран кубов чисел от 11 до 4. var : integer; begin for i: = downto do writeln (i*i*i); readln; end. 2)дано: fori: =1to23do i изменяется от до с шагом 3)запиши программу на языке паскаль. var i, n: word; begin write('n='); readln(n); for i: =1 to n do begin write(i,' '); end; readln; end. на экране n=2 4 2 12 0 4)выбери верный ответ. программа, выводящая 35 раз слово "russia". var i : integer; begin i : = 1 to 35 do writeln ('russia '); readln; end. var i : integer; begin for i : = 1 to 35 do readln; end. var i : integer; begin for i : = 1 downto 35 writeln ('russia '); readln; end. var i : integer; begin for i : = 1 to 35 do writeln ('russia '); readln; end. 5)запиши программу на языке паскаль. определить, является ли число, введенное с клавиатуры простым. файл не выбран максимальный размер файла: 500 кб

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.

трех зайцев по углам, двоих вдоль стен

var s,i,n,m : longint;

begin

  readln(m,n);

  if m> n then

  begin

      s: =m;

      m: =n;

      n: =s

  end;

  s: =0;

  for i: = m to n do if i mod 12=0 then s: =s+i;

  writeln(s);

end.

разрабатывать алгоритмы может только человек.

исполняют алгоритмы    люди и всевозможные устройства – компьютеры,  роботы, станки, спутники, сложная бытовая техника и даже детские  игрушки.