М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
вася780
вася780
14.07.2020 15:42 •  Информатика

Язык программирования Паскаль

2 вариант

1. Использование writeln устанавливает курсор в…

1) … конец строки

2) … начало следующей строки

3) … конец выведенного текста

4) … начало текущей строки

2. Каждое предложение программы заканчивается…

1) … новой строкой

2) … точкой с запятой

3) … оператором stop

4) … запятой

3. Написать фрагмент программы, выводящий следующее:

1 2 3 4 5 6 7 8 9 10

1) for loop := 1 to 10 do write( loop, ' ' );

2) for loop := 1 to 10 do write( 'loop ' );

3) for loop := 1 to 9 do write( loop, ' ' );

4) for loop = 1 to 10 do write( loop, ' ' );

4. Какое ключевое слово не относится к циклической программе?

1) If

2) While

3) For

4) Until

5. Какой оператор цикла с предпроверкой условия?

1) Repeat

2) While

3) For

4) Until

6. Написать предложение, определяющее числовой массив из целых чисел в количестве 20.

1) type numbers = ARRAY[1..20] of int;

2) type numbers = ARRAY[1..20] of integer;

3) type numbers := ARRAY[1..20] of integer;

4) var numbers = ARRAY[0..19] of int;

7. Написать предложение, присваивающее число 20 четвертому элементу массива mynumbers.

1) mynumbers[3] = 20;

2) mynumbers[20] := 4;

3) mynumbers[4] = 20;

4) mynumbers[4] := 20;

8. Как обозначается массив?

1) Array

2) Dim

3) Procedure

4) Set

9. Процедуры и функции – это:

1) операторы

2) подпрограммы

3) имена

4) переменные

10. Оператор ввода в Паскале:

1) INPUT

2) PRINT

3) READ

4) WRITE

11. Когда используется выражение, которое начинается со слова IF, то обязательно применяется слово:

1) GOTO

2) THEN

3) THAN

4) ELSE

12. Функция арктангенса в Паскале обозначается:

1) ATG(X)

2) ATAN(X)

3) ARCTAN(X)

4) ATN(X)

13. Какое по типу выражение вычисляется в условии оператора if?

1) числовое выражение

2) неравенство

3) равенство

4) логическое выражение

14. Что вычисляет функция SQR в Паскале?

1) остаток от деления

2) квадратный корень

3) квадрат числа

4) модуль числа

15. Разветвляющийся алгоритм – это:

1) многократное исполнение одних и тех же действий

2) присутствие в алгоритме хотя бы одного условия

3) набор команд, которые выполняются друг за другом

4) вс алгоритм для дополнительных функций

16. В представленном фрагменте программы тело цикла выполнится …

d:=46

b:=11 WHILE d >= b DO d:= d - b

1) 4 раза

2) 3 раза

3) 2 раза

4) 1 раз

👇
Открыть все ответы
Ответ:
zb2004
zb2004
14.07.2020
Извиняюсь за громоздкость мб можно и короче, сможешь расписать присваивание к каждой переменной а ,б и с рандомное значение, как я указал не через запятую? Если нет, то я через часок другой вброшу короткое решение, а пока это.

program n_1;
 type
 m= array [1..5] of integer;
 var
 a,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer;
 b,b1,b2,b3,b4,b5,b6,b7,b8,b9: m;
 c,c1,c2,c3,c4,c5,c6,c7,c8,c9: m;
 d,d,d2,d3,d4,d5,d6,d7,d8,d8: m;
 begin
 randomize;
 b,b1,b2,b3,b4,b5,b6,b7,b8,b9:= random;
 c,c1,c2,c3,c4,c5,c6,c7,c8,c9:= random;
 d,d,,d2,d3,d4,d5,d6,d7,d8,d8:= random;
 a:= (b+c+d) div 3;
 a1:= (b1+c1+d1) div 3;
 a2:= (b2+c2+d2) div 3;
 a3:= (b3+c3+d3) div 3;
 a4:= (b4+c4+d4) div 3;
 a4:= (b5+c5+d5) div 3;
 a6:= (b6+c6+d6) div 3;
 a7:= (b7+7c+d7) div 3;
 a8:= (b8+c8+d8) div 3;
 a9:= (b9+c9+d9) div 3;
 writeln ('Ученик-', a);
 writeln ('Ученик 1-', a1);
 writeln ('Ученик 2-', a2);
 writeln ('Ученик 3-', a3);
 writeln ('Ученик 4-', a4);
 writeln ('Ученик 5-', a5);
 writeln ('Ученик 6-', a6);
 writeln ('Ученик 7-', a7);
 writeln ('Ученик 8-', a8);
 writeln ('Ученик 9-', a9)
end.
4,5(68 оценок)
Ответ:
art171
art171
14.07.2020
Вот программа , если мы хотим сложить 2 квадрата одного числа
program sqr;
 var n,a: integer;
 begin
 write ('Введите число>>');
 read (n);
 a:= n*n+n*n;
 writeln (a)
end.

Но если мы хотим выразить 1 число в виде суммы 2-х квадратов и проверить возможно ли это, то (боюсь ошибиться)
program sqr;
 uses crt;
 var n: integer; a,b:real;
 begin
 write ('Введите число>>');
 read (n);
 a:= sqrt(n);
 if (a= sqrt(n)) and (a=(n*n)) then
 begin
 b:= sqrt(a);
 if b= (a*a)+(a*a) then
 writeln ('Можно');
 if b<> (a*a)+(a*a) then
 writeln ('Нельзя');
 end;
 if (a= sqrt(n)) and (a<>n*n) then
 writeln ('Нельзя')
end.
4,6(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ