Цикл с параметром и ветвление.
Выполните тест
Тест для проверки знаний основных операторов на Паскале.

1 Какой из циклов записан правильно?
1 ) for а:=15 to 20 do;
2 ) for k:=20 to 3 do;
3 )for d:=15 downto 4 ;
4 )for x:= -11 to -1;

2 Что будет выведено на экране в ходе выполнения программы for k:=0 to 3 do write(k);

3 Сколько раз выполнится цикл for k:=20 to 50 do write(k)?

4 Определите значение переменной b после исполнения данного алгоритма.
a := 5;
b := –3;
a := b + a * 3;
b := 360 / a;
b := a + b;

5 Выбрать оператор ветвления:
1 ) case ... of
2) if … then … else
3) while ... do
4) for ... to ... do

6 Какой ответ выдаст данная программа, если а=10?
var a: integer;
begin
write('Введите целое число ');
readln(a);
if a>0 then a:=a+1 else a:=a-2;
write(a)
end.
Опишите значение каждой строки и каждого оператора.

9 Выбрать верную запись оператора:
1) writeln(‘Я изучаю программирование);
2) writelen(‘Я изучаю программирование);
3) writeln(‘Я изучаю программирование’);
4) writeln(‘Я изучаю программирование’;

10 Укажите переменную типа Real:
1) K:=-0.2
2) C:= 64000
3) X= '5.5'
4) y:=false

Задание для самостоятельного выполнения:
1 Составьте блок-схему алгоритма и программу вывода на экран всех двузначных
чисел, кратных 9
2 Составьте программу вычисления суммы всех трехзначных чисел, кратных 17

ответ на самостоятельную а тест щя решу

Program Pr1;

uses crt;

var mas:array[100..999] of integer;

i:integer;

Begin

clrscr;

for i:=100 to 999 do mas[i]:=i; {1 sposob}

for i:=100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]);

i:=100; {2 sposob}

while i<=999 do begin

if mas[i] mod 9=0 then writeln(mas[i]);

i:=i+1;

end;

i:=100; {3 sposob}

repeat

if mas[i] mod 9=0 then writeln(mas[i]);

i:=i+1

until i=999

end.

2)

Program Pr1;

uses crt;

var mas:array[100..999] of integer;

i,v:integer;

Begin

clrscr;

v:=0;

for i:=100 to 999 do mas[i]:=i; {1 sposob}

for i:=100 to 999 do if mas[i] mod 17 =0 then v:=v+mas[i];

writeln(v);

i:=100; {2 sposob}

v:=0;

while i<=999 do begin

if mas[i] mod 17=0 then v:=v+mas[i];;

i:=i+1;

end;

writeln(v);

i:=100; {3 sposob}

v:=0;

repeat

if mas[i] mod 17=0 then v:=v+mas[i];

i:=i+1

until i=999;

writeln(v);

end.