Итоговая контрольная работа по информатике 8 класс
1 Укажите предложения, которые являются высказываниями.
А. Как пройти в библиотеку?
Б. Число 2 является делителем числа 9
В. Ух ты!
Г. Мама с Когда вернешься?»
Д. Решение задачи – информационный процесс.
2 В таблице приведены за и количество найденных по ним страниц
некоторого сегмента сети Интернет.
За Найдено страниц (в тыс.)
Малина
2500
Клубника
1700
Малина|Клубника
2900
Какое количество страниц (в тыс.) будет найдено по за Малина&Клубника?
3 Напишите наибольшее целое число Х, для которого истинно высказывание
А. НЕ (X<=6) И НЕ (Х >=11)
Б. НЕ (Х четное) И НЕ (X>=7)
4 Для какого из приведенных имён истинно высказывание:
НЕ (первая буква согласная) И НЕ (последняя буква гласная)
А. Юлиан
Б. Константин
В. Екатерина
Г. Светлана
5 Для какого из приведенных имён ложно высказывание:
НЕ((первая буква согласная) И (последняя буква гласная))
А. Дарья
Б. Павел
В. Абрам
Г. Анфиса
6 Определите значение переменных после выполнения алгоритма:
a:=127;
a
b
b:=4;
a:=a div b;
b:= a mod b;
a:=7;
a
b
b:=12;
a:=a+b;
b:=a-b;
a:=b+a;Определите значение переменной А после выполнения фрагмента алгоритма,
представленного блок-схемой.
8 Определите значение переменной А после выполнения фрагмента алгоритма.
9 Исполнителю Черепаха был дан для исполнения следующий алгоритм:
Повтори 8 [ Вперёд 20 Направо 90 Вперёд 20]
Какая фигура появится на экране?
10 Расположите строки так, чтобы получилась программа Gipotenuza,
рассчитывающая по двум введенным с клавиатуры катетам квадрат гипотенузы
прямоугольного треугольника.
11 Для каждой записи в левом столбце подберите соответствующее ей составное
условие правого столбца.
ответ:
. в нужно вывести все составные числа из промежутка [2; n]. код программы:
program lab3;
var i,n,j,s,l: integer;
m: real;
begin
readln (n);
for i: =2 to n do
begin
s: =trunc (sqrt (i));
for l: =2 to s do
begin
m: = i mod l;
if m=0 then
write (' ',i);
end;
end;
end.
но проблема - как только s становится больше 2, составные числа начинают несколько раз повторятся, т.к., например 12 делится и на 2 и на 3. вопрос: как мне сделать выход из цикла после первого успешного деления?
var
i, n, j, s, l: integer;
m: real;
begin
readln(n);
for i : = 2 to n do
begin
s : = trunc(sqrt(i));
for l : = 2 to s do
begin
m : = i mod l;
if m = 0 then
begin
write(' ', i);
break;