voronvoron2002
12.05.2021 02:27

Задание #3
Во Какая последовательность символов не может служить именем в языке Паскаль?
Выберите один из 4 вариантов ответа:
1) _mas 2) maS1 3) d2 4) 2d
Задание #4
Во Вещественные числа имеют тип данных:
Выберите один из 4 вариантов ответа:
1) real 2) integer 3) Boolean 4) string
Задание #5
Во В программе на языке Паскаль обязательно должен быть:
Выберите один из 4 вариантов ответа:
1) заголовок программы
2) блок описания используемых данных
3) программный блок
4) оператор присваивания
Задание #6
Во Какого раздела не существует в программе, написанной на языке Паскаль?
Выберите один из 4 вариантов ответа:
1) заголовка 2) примечаний
3) описаний 4) операторов
Задание #7
Во Языковые конструкции, с которых в программах записываются действия,
выполняемые в процессе решения задачи, называется:
Выберите один из 4 вариантов ответа:
1) операндами 2) операторами
3) выражениями 4) данными
Задание #8
Во Разделителями между операторами служит:
Выберите один из 4 вариантов ответа:
1) точка 2) точка с запятой 3) пробел 4) запятая
Задание #9
Во Описать переменную - это значит указать её:
Выберите один из 4 вариантов ответа:
1) имя и значение 2) имя и тип
3) тип и значение 4) имя, тип и значение
Задание #10
Во В данном фрагменте программы:
program error;
begin
suMma: = 25-14;
end.
ошибкой является:
Выберите один из 4 вариантов ответа:
1) некорректное имя программы 2) не определенное имя переменной
3) некоректное имя переменной 4) запись арифметического выражения
Задание #11
Во Какая клавиша нажимается после набора последнего данного в операторе read?
Выберите один из 4 вариантов ответа:
1) enter 2) точка с запятой 3) пробел 4) ctrl
Задание #12
Во При присваивании изменяется:
Выберите один из 4 вариантов ответа:
1) имя переменной 2) тип переменной
3) значение переменной 4) значение константыЗадание #13
Во Для вывода результатов в Паскале используется оператор:
Выберите один из 4 вариантов ответа:
1) begin 2) readln 3) write 4) print
Задание #14
Во Для вычисления квадратного корня из x используется функция:
Выберите один из 4 вариантов ответа:
1) abs (x) 2) sqr (x) 3) sqrt (x) 4) int (x)
Задание #15
Во В каком из условных операторов допущена ошибка?
Выберите один из 4 вариантов ответа:
1) if b=0 then writeln ( 'Деление невозможно.' ) ;
2) if a
3) if a>b then max : = a else max := b ;
4) if (a>b) and (b<0) then c : = a+b ;
Задание #16
Во В условном операторе и после then и после else нельзя использовать:
Выберите один из 5 вариантов ответа:
1) оператор вывода 2) составной оператор
3) несколько операторов 4) условный оператор
Задание #17
Во Определите значение переменной "c" после выполнения следующего фрагмента программы:
a : = 100 ;
b : = 30;
a : = a - b*3 ;
if a > b then c : = a - b else c : = b - a ;
Выберите один из 4 вариантов ответа:
1) 20 2) 70 3) -20 4) 180
Задание #18
Во Условный оператор
if a mod 2=0 then write ( 'Да') else write ('Нет') позволяет определить, является ли число a:
Выберите один из 4 вариантов ответа:
1) целым 2) двухзначным 3) четным

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
89528849556keyz
04.03.2022 16:09

uses graphabc;

var x,y,i,n,k,x0,y0: integer;

begin

setwindowsize(640, 480);

setpenwidth(3);

line(10, 240, 630, 240);

line(320, 10, 320, 470);

line(620, 235, 630, 240);

line(620, 245, 630, 240);

line(315, 20, 320, 10);

line(325, 20, 320, 10);

n: =10;

for i: =1 to 61 do begin

line(o+i*n, 243, o+i*n, 237);

end;

for i: =1 to 46 da begin

line(317,20 +i*n, 323,20+i*n);

end;

x0: =320;

y0: =240;

k: =50;

for x: =-320 to 320 do

begin

y: =truns(k*sin(x/k);

putpixel(x0+x, y0-y, clred);

end;

textout (50,40; grafic y=sinx');

end.

0,0(0 оценок)
Ответ:
ЛизаПру
15.04.2020 13:48
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50);
  Writeln('Исходный массив'); a.Println;
  var se:=a.Where(x->x mod 3=0);
  if se.Count=0 then
    Writeln('В массиве нет элементов, кратных трем')
  else begin
    var b:=se.Max;
    var i:=0;
    while a[i]<>b do Inc(i);
    if i=n-1 then Writeln('Максимальный элемент - последний')
    else begin
      Writeln('Результирующий массив');
      a[i+1]:=abs(a.Where(x->x<0).Sum); a.Println
      end
    end
end.

Тестовое решение:
n= 15
Исходный массив
-24 -38 15 -33 -40 -18 21 34 20 49 -19 29 29 38 -41
Результирующий массив
-24 -38 15 -33 -40 -18 21 213 20 49 -19 29 29 38 -41
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота