В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
НатЯ01771
НатЯ01771
20.06.2021 22:53 •  Информатика

1. Какими будут значения переменных j, k после выполнения условного оператора:
if j>k Then j = k-2 Else k=k-2;
если исходные значения переменных равны: j=5, k=3?
1) j=3, k=3.
2) j=1, k=3.
3) j=3, k=5.
2. Определить значение переменной S после выполнения следующих операторов:
s:=0;
n:=4;
For i:=2 То n Do
s:=s+100 Div i;
1) S = 64.
2) S = 128.
3) S = 108.
4) S = 256.
3. Какие из приведенных операторов неправильные?
а) For i:=12 To 15 Do s:=s+i;
б) For a:=30 To 20 Do
if a Mod 3=0 Then d:=d+1;
в) For i:=40 downto 15 Do s:=s+i;
1) В.
2) А.
3) Б.
4. Дана последовательность операторов:
а:=1; b:=1;
while a+b<8 do Begin
а:=а+1;
b:=b+2;
End;
s:=a+b;
Сколько раз будет повторен цикл и какими будут значения переменных а, b, и s после завершения этой последовательности операторов?
1) 3 раза, s=6 a=3, b=5.
2) 2 раза, s=8, a=3, b=5.
3) 1 раз, s=8, a=3, b=7.
5. Оператор для организации повторения действий в языках программирования – это…
1) оператор организации диалога с пользователем;
2) условный оператор;
3) оператор цикла?
6. Этап, на котором устраняются синтаксические ошибки в программе, – это…
1) отладка программы;
2) ввод программы;
3) тестирование программы?
7. Оператор цикла, тело которого выполняется как минимум один раз независимо от значения параметра цикла, – это оператор цикла:
1) с предусловием (WHILE);
2) с заданным числом повторений (FOR);
3) с постусловием (REPEAT)?
8. Что называется алгоритмом?
1) Алгоритм – описание последовательности действий (план), строгое исполнение которых приводит к решению поставленной задачи за конечное число шагов;
2) Алгоритм – описание последовательности действий (план), для решения задачи;
3) Алгоритм – примерный план для решения задачи.
9. Имеется условный оператор:
If D<>10 Then writeln (‘Ура’) Else writeln (‘Плохо…’);
Каким оператором его можно заменить?
1) If D<>10 Then writeln (‘Плохо…’) Else writeln (‘Ура’);
2) If Not(D=10) Then writeln (‘Плохо…’) Else writeln (‘Ура’);
3) If Not(D<>10) Then writeln (‘Плохо…’) Else writeln (‘Ура’).
10. В результате выполнения фрагмента программы:
a:=3,14;
writeln (frac(a));
на печать будет выведено:
1) 3,14, 2) 3.14, 3) 3, 4) 14.
11. Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные, а отрицательные оставляет без изменения.
12.Найти сумму отрицательных элементов массива, размерности 15, заполненного с случайных чисел из промежутка (-15;23).
13.Найти количество четных элементов массива целых чисел, заполненного с клавиатуры, размерность массива 9.

Показать ответ
Ответ:
nazar221
nazar221
07.06.2022 00:42
 const nx = 20;
var x: array[1..nx, 1..nx] of integer;z:array[1..nx*2] of integer; 
i, j, k,n,r,t: integer; 
begin 
Writeln('Введите размер матрицы n');Read(n); 
 for i := 1 to n do begin   
for j := 1 to n do begin   
Read(k);x[i, j] := k;  end;end;   
Writeln('Исходный массив'); 
for i := 1 to n do begin   
for j := 1 to n do begin     
Write(x[i, j]:4);     
if x[i, j]>0 then begin t:=t+1; z[t]:=x[i, j];end;    
end;   
Writeln;  end; 
Writeln;Writeln('Одномерный массив'); 
for j := 1 to t do     
Write(z[j]:4); 
 end.
0,0(0 оценок)
Ответ:
Tolganay11
Tolganay11
05.04.2022 04:43
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger('Количество элементов в массиве: ');
  var a:=ArrRandom(n,-50,50);
  a.Println(',');
  Writeln('Четные элементы: ');
  var i:=1;
  while i<n do begin Write(a[i],' '); Inc(i,2) end;
  Writeln;
  Writeln('Нечетные элементы: ');
  i:=0;
  while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
  Writeln
end.

Тестовое решение:
Количество элементов в массиве:  10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота