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

8_Тест «Общие сведение о языке программирования Паскаль»
Вариант 1
1. Какие из следующих последовательностей символов можно считать операторами присваивания?
б) a+3:=5
в) a:=2a
г) b:=b+3
д) k:=k+1

2. Укажите ложное высказывание:
б) Нельзя присваивать программам имена зарезервированных языком программирования слов (begin, end, program)
в) Имя программы может содержать любое количество любых символов

3. Условия, состоящие из одной операции сравнения, называются …
б) линейными
в) простыми
г) сложными

4. Как можно представить структуру программы на языке Паскаль?
Program
Begin
End
б) Program
End
Begin
в) Begin
Program
End

5. Какое из перечисленных слов не относится к служебным словам языка
программирования Паскаль?
б) Or
в) Begin
г) Read

6. Какие символы можно использовать при записи программы на языке Паскаль?
б) *
в) F
г) Г
д) ы

7. Алгоритм, записанный на языке программирования, называется …
б) задачей
в) программой
г) моделью

8. Кто является разработчиком языка программирования Паскаль?
б) Блез Паскаль
в) Чарльз Бэббидж
г) Никлаус Вирт

9. Укажите допустимые имена в языке Паскаль:
б) sUmmA
в) _F
г) ЗЖ2
д)end

10. Установите соответствие:
А) -32 768 … 32 768

1. char

Б) true и false

2. boolean

В) Произвольный символ алфавита

3. string

Г) Последовательность не более чем из 255 символов

4. integer

👇
Открыть все ответы
Ответ:
lllgglll
lllgglll
16.10.2022
Const
  n = 10;

var
  a: array[0..10] of integer;
  i, s: integer;

begin

//Заполнение массива сл. числами

  for i := 1 to n do
  begin
    a[i] := random(201) - 100;
    write(a[i]:4);
  end;
  writeln;

//1) Все элементы не превышающие число 100

  writeln('Не больше 100 ');
  for i := 1 to n do
    if a[i] <= 100 then
      write( a[i]:4);
  writeln;

// 2) Все четные элементы

  writeln('Кратные двум ');
  for i := 1 to n do
    if a[i] mod 2 = 0 then  
      write( a[i]:4);
  writeln;

// 3) Все элементы, являющиеся трехзначными числами

   writeln('Трехзначные ');
  for i := 1 to n do
    if (a[i] < -99) or (a[i] > 99) then  
      write(a[i]:4);
  writeln;

// 4) Третий, шестой и т.д элементы.

  i := 3;
  writeln(' номера 3, 6, 9 и  т.д.');
  while i < n do
  begin
    write(a[i]:4);
    i := i + 3;
  end;
end.
4,8(27 оценок)
Ответ:
cook16
cook16
16.10.2022

  начало

                                                  делим на 2

                          есть остаток                               нет остатка

                          возводим в куб                         возводим в кводрат

                                                    конец        

4,7(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ