dzo-dzo
?>

Язык программирования Паскаль 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 раз

Информатика

Ответы

Dmitrievna Lvovich
Извиняюсь за громоздкость мб можно и короче, сможешь расписать присваивание к каждой переменной а ,б и с рандомное значение, как я указал не через запятую? Если нет, то я через часок другой вброшу короткое решение, а пока это.

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.
manager-3
Вот программа , если мы хотим сложить 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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Язык программирования Паскаль 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 раз
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

cheremetdiana
Aleksei368
Marianna45
dimkimka386
muzeynizhn
Дмитрий_Владимирович1162
ibarskova1542
Lilykl
спец387
vera-sherepa231
tarasowamash4
Khlistova1488
МуратМарина1140
AlekseiBunina1895
miumiumeaow