1) словный оператор состоит из заголовка и тела? Выберите один ответ:
Верно
Неверно
2)На какой из блок-схем представленная полная / неполная форма условного оператора?
Неполная форма
Полная форма
Неполная форма

p - произведение
s - сумма
i - цикловая переменная

1. Цикл с предусловием While

var
p, s, i : longint; [или integer]
begin
p := 1;
s := 0;
i := 101;
while i < 200 do
begin
if i mod 5 = 0 then
begin
p := p * i;
s := s + i; 
end;
i := i + 1; [или ing(i)]
end;
writeln(p);
writeln(c)
end.

2. Цикл с постусловием Repeat

var
p, s, i : longint; [или integer]
begin
p := 1;
s := 0;
i := 101;
repeat
if i mod 5 = 0 then
begin
p := p * i;
s := s + i; 
end;
i := i + 1; [или ing(i)]
until i >= 200;
writeln(p);
writeln(c)
end.

3. Цикл For

var
p, s, i : longint; [или integer]
begin
p := 1;
s := 0;
for i := 101 to 199 do
begin
if i mod 5 = 0 then
begin
p := p * i;
s := s + i; 
end;
end;
writeln(p);
writeln(c)
end.

Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.

В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.