В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
SkriN123
SkriN123
19.09.2020 08:44 •  Информатика

Тест по теме «Программное управление работой компьютера».
1. Укажите условие выбора чисел, кратных 3 или не кратных 4
А) (x mod 3 = 0)
Б) (x mod 3 = 0) or (x mod 4 <>0)
В) (x mod 3 = 0) and (x mod 4 <>0)

2. Какое значение примет переменная С в результате выполнения программы:
var A,B,C: integer;
begin
A:=4; B:=A*4-6;
if B<2*A then A:=2;
if B>2*A then A:=5;
C:=A*B+A;
write(`C=`,C);
end.
А) 14
Б) 22
В) 55
Г) 28

3. Какой оператор позволяет вычислить квадрат числа?
А) SQRT
Б) ABS
В) SQR

4. Как записать оператор вывода?
А) writeln()
Б) readkey()
В) readln()

5. Как записывается оператор ввода?
А) writeln()
Б) readkey()
В) readln()

6. Операторы для организации диалога с пользователем в языке программирования - это...
А) оператор ввода и оператор вывода
Б) условный оператор
В) оператор цикла

7. Назначение циклической структуры:
А) повторение идущих подряд одинаковых команд некоторое число раз
Б) повторение одной команды не более 10 раз
В) проверка условия в тексте

8. Как записывается оператор присваивания?
А) а=:1
Б) а=1
В) а:=1

9. Укажите правильное описание массива:
А. Var a: array[1..1000] of integer;
Б. Var A,B,C: array[1...50, 1...50] of real;
B. Var a: array[1..50] of integer;
А) A,Б
Б) Б,В
В) А,В

10. Какая строка из перечисленных описывает символьную переменную на языке Паскаль?
А) var x: integer
Б) var x: Boolean
В) var x: real
Г) var x: char

11. Оператор цикла с предусловием в Паскале имеет следующий формат:
А) write <выражение> do <оператор>
Б) writeln <выражение> go <оператор>
В) while <выражение> do <оператор>

12. Формат неполной формы ветвления следующий:
А) if <условие> else <оператор 2>
Б) if <условие> then <оператор 1> else <оператор 2>
В) if <условие> then <оператор 1>

13. Что производит следующий фрагмент программы?
FOR I:=1 TO N DO
WRITE(A[I],` `);
А) Ввод элементов массива из файла
Б) Вывод элементов массива в файл
В) Ввод элементов массива с клавиатуры
Г) Вывод элементов массива на экран монитора

14. Что производит следующий фрагмент программы?
K:=0;
FOR I:=1 TO N DO
IF A[I]<0 THEN K:=K+1;
WRITELN(K=`,K);
А) Находит максимальный элемент и печатает на экране
Б) Находит минимальный элемент и печатает на экране
В) Находит сумму отрицательных элементов и печатает на экране
Г) Находит количество отрицательных элементов и печатает на экране
15. При каком значении X на экран выводится "ДА"?
if X MOD 2=0 then writeln (`ДА`) else writeln(`НЕТ`)
А) 12
Б) 15
В) 17
Г) 19

16. Дана последовательность операторов, сколько раз будет повторен цикл?
А:=1; B:=1;
WHILE A+B < 8 DO
BEGIN А:=А+1; B:=B+2;
END;
А) 2 раза
Б) 3раза
В) 4 раза
Г) 5 раз

Показать ответ
Ответ:
SonyaPlaystation
SonyaPlaystation
01.03.2020 04:34
Const n=20;
var a:array[1..n]of integer;
i,b,k,c,f,g,h:integer;
begin
for i:=1 to n do a[i]:=Random(70)-20;
for i:=1 to n do
write(a[i],' ');
writeln;
for i:=1 to n do begin
if (a[i] mod 5 = 0) and (a[i] mod 10<>0) or (a[i]=50) then begin
b:=i;
for b:=i to (n-1) do
a[i]:=a[i+1];
end; end;
for i:=1 to n do
write(a[i],' ');
write('введите к ');
read(k);
for i:=1 to n do begin
if a[i] mod i = 0 then begin
c:=i;
for i:=n downto c+1 do begin
a[i]:=a[i-1];
a[c+1]:=k;
end;end;end;
for i:=1 to n do
write(a[i],' ');
writeln;
f:=0; g:=0;
for i:=n downto 1 do begin
if (a[i]>0) then f:=i;
end;
if a[f]=0 then write('нет положительных ');
for i:=n downto 1 do begin
if (a[i]<0) then g:=i;
end;
if (a[g]=0) then write('нет отрицательных ');
if (a[f]<>0) and (a[g]<>0) then begin
h:=a[f]; a[f]:=a[g]; a[g]:=h; end;
for i:=1 to n do
write(a[i],' ');
writeln;
end.
0,0(0 оценок)
Ответ:
Hacтяя
Hacтяя
04.12.2022 23:15
Такое задание уже было. Я на него отвечал, думаю модераторы не против, если свой же ответ здесь предоставлю)
  Только первых три

Задача 1:
var p: array[1..10] of integer;  
i:integer;
count:integer;
begin
for i:=1 to 10 do read(p[i]);
write('Сколько цифр массива хотите видеть? -> '); 
readln(count);
for i:=1 to count do write(p[i]:3);
end.

Задача 2:

var arr: array[1..10] of integer;   
i:integer;    
s:integer;    
count:integer;
begin
for i:=1 to 10 do
begin
arr[i]:=Random(-10,10);
if(arr[i]<0) then
begin
writeln(arr[i]:4);
s:=s+arr[i];
count:=count+1;
end;
end;
writeln('Среднее значение = ', s/count);
end.

Задача 3:

var arr: array[1..10] of integer;    
i:integer;    
crat:integer;    
id:integer;       
begin   
for i:=1 to 10 do   
begin   
read(arr[i]);   
crat:=arr[i] mod 3;   
if(crat = 0) then   
begin   
id:=arr[i];     
if(arr[i] = id) then writeln('Id = ', i:2);    
end;   
end;   
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота