СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Тест программирование (Паскаль первый уровень)

Внимание! Все тесты в этом разделе разработаны пользователями сайта для собственного использования. Администрация сайта не проверяет возможные ошибки, которые могут встретиться в тестах.
Линейные алгоритмы

Список вопросов теста

Вопрос 1

Найди ошибку

   var а,  с:real;

begin

   readln(а);

   readln(с);

   p:=a*c;

   writeln('p=');

end.

Вопрос 2

Найди значение р , если а=3, с=5

   var а, р, с:real;

begin

   readln(а);

   readln(с);

   p:=a*c;

   writeln('p=');

end.

Вопрос 3

Найди ошибку

   var а, р, с:real;

begin

   readln(а)

   readln(с);

   p:=a*c;

   writeln('p=');

end.

Вопрос 4

var s, t: integer;

begin   

  readln(s);     

readln(t);    

 if (s > 2) and (t < 5)         

then writeln('YES')        

 else writeln('NO')

end.

(–2, 3); (2, 5); (0, 3); (5, –3); (5, 4); (11, 4); (8, –6); (7, 3); (9, 1).

Сколько было запусков, при которых программа напечатала «YES»?

Вопрос 5

 var s, t: integer;

begin     

readln(s);     

readln(t);     

if (s < 5) or (t > 5)        

 then writeln('YES')         

else writeln('NO')

end.

(–2, 3); (2, 5); (0, 3); (5, –3); (5, 4); (11, 4); (8, –6); (7, 3); (9, 1).

Сколько было запусков, при которых программа напечатала «YES»?

Вопрос 6

 var s, t: integer;

begin     

readln(s);     

readln(t);     

if (s < 5) or (t > 5)        

 then writeln('YES');         

else writeln('NO')

end.

Найди ошибку в программе

Вопрос 7

 var s, t: integer;

begin     

readln(s);     

readln(t);     

if (s < 5) or (t > 5)        

 then writeln         

else writeln

end.

Найди ошибку в программе

Вопрос 8

var s, k: integer;

begin     

readln(s);     

readln(k);   

  if s div 2 = k        

 then writeln ('ДА')         

else writeln ('НЕТ')

end.

(1, 1); (8, 4); (14, 10); (20, 1); (7, 3); (10, 5); (10, 2); (4, 1); (1, 0).

Сколько было запусков, при которых программа напечатала «ДА»?

Вопрос 9

var s, k: integer;

begin     

readln(s);     

readln(k);   

  if s mod 2 = k        

 then writeln ('ДА')         

else writeln ('НЕТ')

end.

(1, 1); (8, 4); (14, 0); (20, 1); (7, 3); (10, 5); (11, 1); (4, 1); (1, 0).

Сколько было запусков, при которых программа напечатала «ДА»?

Вопрос 10

var s, k: integer;

begin     

readln(s);     

readln(k);   

  if s mod 8 = k        

 then writeln ('ДА')         

else writeln ('НЕТ')

end.

Напишите пример двух значений, чтобы ответ был "ДА"

Сохранить у себя: