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

Question

Цикл с параметром и ветвление. Выполните тест Тест для проверки знаний основных операторов на Паскале. 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

Answer 1

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

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

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

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.