1. Сколько раз выполнится цикл? for k=20 downto 4 do ...
k:=5; r:=15; for i:=0 to k*r do ...
for c:=’Й’ to ‘И’ do…

2. Укажите синтаксически правильные операторы цикла:
While (a:=10) and (a:=20) do S:=S+a;
Repeat readln(a) until a>0;
For a:=1 to 10 do begin write(a);

3. Чему будет равна переменная S после выполнения алгоритма:
s:=0;
n=10;
for i:=5 to n do S:=S+i mod 2;

4. Составить программу для вычисления 12+22+32+…+102

1)

var a:string;

s,i:integer;

begin

read(a);

s:=0;

for i:=1 to length(a) do

if a[i]='o' then s:=s+1;

Writeln(s);

end.

2)

var A:array[1..1000] of integer;

N,i:integer;

s:real;

begin

Read(N);

s:=0;

for i:=1 to N do

read(A[i]);

for i:=1 to N do

s:=s+a[i];

s:=s/N;

writeln(s:3:3);

end.

3)

var a:string;

s:integer;

begin

read(a);

s:=length(a);

if a[1]=a[s] then writeln('Da') else writeln('Net');

end.

4)

var a,b:integer;

f:text;

begin

assign(f,'in.txt');

reset(f);

read(f,a,b);

Writeln(a+b);

Writeln(a-b);

Writeln((a+b)/2);

close(f);

end.

Вроде все корректно, проверь

В 4 задаче, название файла in.txt можешь поменять на любое другое

По всем вопросам пиши в ЛС

1)

var a:string;

s,i:integer;

begin

read(a);

s:=0;

for i:=1 to length(a) do

if a[i]='o' then s:=s+1;

Writeln(s);

end.

2)

var A:array[1..1000] of integer;

N,i:integer;

s:real;

begin

Read(N);

s:=0;

for i:=1 to N do

read(A[i]);

for i:=1 to N do

s:=s+a[i];

s:=s/N;

writeln(s:3:3);

end.

3)

var a:string;

s:integer;

begin

read(a);

s:=length(a);

if a[1]=a[s] then writeln('Da') else writeln('Net');

end.

4)

var a,b:integer;

f:text;

begin

assign(f,'in.txt');

reset(f);

read(f,a,b);

Writeln(a+b);

Writeln(a-b);

Writeln((a+b)/2);

close(f);

end.

Вроде все корректно, проверь

В 4 задаче, название файла in.txt можешь поменять на любое другое

По всем вопросам пиши в ЛС