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

Письменный опрос по теме «язык программирования паскаль. основные конструкции языка» в-2 1. программа на языке паскаль начинается со слов: 2. переменные, используемые в программе описываются в разделе: 3. для создания имен переменных можно использовать: 4. пример правильно составленных имен
переменных (5 вариантов): 5. операторы языка паскаль отделяются друг от друга: 6. признаком конца программы написанной на языке паскаль является: 7. напишите синтаксически правильную запись выражения hello_html_m64523c4a.gif 8. какие встроенные функции языка паскаль обозначают словами sqr, abs,
div : 9. какие значения примут переменные a, b после выполнения серии команд: a: =-5; b: =5; a: =a+b; b: =a-b; a: =a-b; 10. что будет отображено на экране после выполнения серии команд (писать из расчета 1-клетка=1-символ): a: =20; b: =0; c: =4; writeln(‘с новым ’,a,b); write(b,c);
writeln(‘ ! ’); 11. запишите последовательность команд, в результате выполнения которых будет найдено наименьшее значение переменных a и b: 12. какую последовательность чисел выведет на экран серия команд: for i: =-15 to 5 do begin write(i): end; 13. какую последовательность чисел выведет на
экран серия команд: a: =0; while a< =10 do begin writeln(a); a: =a+2; end: 14. какую последовательность чисел выведет на экран серия команд: a: =3; repeat a: =a+3; write(a); until a< 15; 15. запишите серию команд, отображающую на экране последовательность чисел: 6 4 2 0 -2 -4 -6 16.
в чем отличие этих операторов: begin …. end. и begin … end; . 17.запишите алгоритм подсчета произведения 10 произвольно введенных чисел. 18.запишите алгоритм вложенных циклов для таблицы: 1 22 333 4444 55555

👇
Открыть все ответы
Ответ:
gladiatorcor
gladiatorcor
21.03.2020

var

  A, B, N, i: integer;

 

begin

  N:= 0;  //Обнуляем счетчик

  writeln('Введите числа A и B');

  readln(A, B); //Вводим А и B

  if A < B then  {Если А < B, то печатаем числа начиная с B и заканчивая A, 

иначе наоборот}

    for i:= B downto A do

    begin

      write(i, '  ');  //Печатаем i

      inc(N);  //Увеличиваем счетчик на 1

    end

  else 

    for i:= A downto B do

    begin

      write(i, '  ');

      inc(N);

    end;

  writeln;

  writeln('Количество N этих чисел равно:  ', N);  //Выводим N

end.

Если все правильно, отметь решение как лучшее)

    

4,6(34 оценок)
Ответ:
юстина6
юстина6
21.03.2020

var

  A, B, N, i: integer;

 

begin

  N:= 0;  //Обнуляем счетчик

  writeln('Введите числа A и B');

  readln(A, B); //Вводим А и B

  if A < B then  {Если А < B, то печатаем числа начиная с B и заканчивая A, 

иначе наоборот}

    for i:= B downto A do

    begin

      write(i, '  ');  //Печатаем i

      inc(N);  //Увеличиваем счетчик на 1

    end

  else 

    for i:= A downto B do

    begin

      write(i, '  ');

      inc(N);

    end;

  writeln;

  writeln('Количество N этих чисел равно:  ', N);  //Выводим N

end.

Если все правильно, отметь решение как лучшее)

    

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