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

( )
ЯП Паскаль создал *
Блез Баскаль
Норберт Винер
Никлаус Вирт
Стив Джобс
Запишите назначение функции SQR(A) в языке Паскаль. *
квадратный корень из а
квадрат числа а
модуль а
округления числа а до ближайнего целого
Укажите правильный вариант записи оператора *
Writel ('s');
Wirteln ('s');
Writeln ('s');
Wirteln (s);
Выбрать оператор ввода данных *
write
readln
degin
var
programm
Оператор присваивания имеет вид *
:=
=
=:
:=()
=('')
Вещественный тип данных объявляется служебным словом: *
integer
boolean
char
real
read
write
Укажите неправильно записанный оператор: *
if a if x and y then s:=s+1; else s:=s-1;
if k<>m then k:=m
if (a При выполнении последовательности операторов А:=45; B:=2; X:=A mod B значение переменной Х равно: *
1
90
22
0
В результате выполнения последовательности операторов x:=sqr(2); y:=sqrt(4)-abs(-2); write(x,’ ‘, y)на экране будет выведено: *
0 и -1
4 и 6
4 и 0
1 и 0
Для описания переменных используется оператор *
program
begin
write
read
var
Процедура ветвления: *
For - to – do;
Begin – end;
While – do;
If – then – else;
Какая запись на языке программирования соответствует словесному выражению «значение переменной b уменьшено на 5»? *
b:=b+5
b:=b/5
b:=b*5
b:=b*b*b*b*b
b:=b-5
В языке Паскаль использование циклов целесообразно: *
при многократном выполнении одинаковых действий
для вывода на печать вычисленного значения выражения
для проверки условия
для выполнения арифметических действий с арифметических операторов
С оператора for в языке Паскаль программируется: *
цикл-ПОКА
цикл-ДО
комбинация цикла-ПОКА и цикла-ДО
цикл-ДЛЯ
Отметьте, что определяется во фрагменте программы: геаdIn (а, b); for i:=1 to n do begin write (‘Enter х’); readIn (x); if x>b then b:=x else if x минимальный элемент
разность минимального и максимального элементов
максимальный элемент
разность максимального и минимального элементов
Определите, что будет напечатано в результате следующего алгоритма.Var s,k:integer; begins:=0; For k:=1 to 12 do s:=s+5; writeln(s); end. *
60
5
17
120
В результате выполнения фрагмента программы:а:=5;b:=20;а:=а-b/2;if а>b then с:=а+belse с:=b-а;переменная с примет значение: *
25
14,5
-15
-14,5
Отметьте, что произойдет в результате выполнения следующей программы. program pr; var а, b, с: integer; begin write (‘Введите первое целое число’); readln (а); write (‘Введите второе целое число’); readln (b); if а уменьшение меньшего из двух чисел вдвое
уменьшение большего из двух чисел вдвое
увеличение меньшего из двух чисел вдвое
увеличение большего из двух чисел вдвое

👇
Открыть все ответы
Ответ:
virudskaya
virudskaya
09.10.2021

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

   writeln('III');

   var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

   writeln;

   

   while a.Any() do

   begin

       write(a[0], ' ');

       a.RemoveAt(0);

       if not a.Any then break;

       

       write(a.Last, ' ');

       a.RemoveAt(a.Count - 1);

       if not a.Any then break;

       

       var n := 0;

       if a.Count > 1 then n := a.Count div 2 - 1;

       write(a[n], ' ');

       a.RemoveAt(n);

   end;

end.

Объяснение:

4,6(51 оценок)
Ответ:
Кирилл42352
Кирилл42352
09.10.2021
Const n = 5;
  m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=random(21)-10; write(a[i,j]:4);
    end;
    writeln;writeln;
  end;
  //сумма всех элементов массива
  for i:=1 to n do
    for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
    s:=0;
    for j:=1 to m do begin
      s:=s+a[i,j];
    end;
    writeln ('Строка: ',i,' сумма:',s);
  end;   
end.
4,7(75 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ