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

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

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 agt;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

Задать свой вопрос
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 ilt;=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 ilt;=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.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт