olyazyuzko2017
27.02.2023 04:14

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.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
petukhova05
28.10.2022 13:25
На интервале с левой границей 500 первое число, кратное 13, равно 507, а первое число, кратное 17, равно 510. Числа, кратные 13, образуют последовательность 507, 520, 533, ..., а числа, кратные 17, образуют последовательность 510, 527, 544, ... Для решения задачи достаточно объединить эти последовательности в одну, упорядоченную по возрастанию и взять первых 20 её членов.

Как получить 507 и 510? Первое число m, не меньшее некоторого k и кратное n определяется по простому алгоритму. Пусть p = k mod n - остаток от целочисленного деления k на n. Если p=0, то m=k, в противном случае m=k+n-p.
Проверим для k=500, n=13.
p = 500 mod 13 = 6. p≠0 ⇒ m = 500+13-6 = 507.

Поскольку 17>13, в последовательности чисел, кратных 17, их не может быть больше половины искомого количества, т.е. больше 20/2=10. А десятый член последовательности 510, 257, ... это 510+9×17 = 663. Тем более, это значение не может быть превышено в последовательности чисел, кратных 13, их там будет (663-507)/13=12.

Окончательно: строим последовательности из 12 чисел ряда 507, 520, 533... и 10 чисел ряда 510, 527, 544, ... объединяем их в последовательность, упорядоченную по возрастанию и берем 20 первых ее членов.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  (SeqGen(12,507,t->t+13)+SeqGen(10,510,t->t+17)).OrderBy(t->t)
      .Distinct.Take(20).Println
end.

Результат
507 510 520 527 533 544 546 559 561 572 578 585 595 598 611 612 624 629 637 646
0,0(0 оценок)
Ответ:
AnyaNaglova
16.06.2020 00:17
1. var
a:array[1..7] of integer;
i:Integer;
begin
//заполнение массива
a[1]:=3;
a[2]:=8;
a[3]:=2;
a[4]:=0;
a[5]:=2;
a[6]:=1;
a[7]:=7;
//вывод массива
for i:=1 to 7 do
Writeln(a[i]);
end.

2. var
c:array[1..12] of integer;
i:Integer;
begin
//заполнение массива
for i:=1 to 12 do
begin
Writeln('Введите ',i,' элемент массива');
readln(c[i]);
end;
//вывод массива
Writeln('Массив');
for i:=1 to 12 do
Write(c[i],' ');
end.

3.var
s:array[1..15] of integer;
i:Integer;
begin
//заполнение массива
for i:=1 to 15 do
s[i]:=random(40);
//вывод массива
Writeln('Массив');
for i:=1 to 15 do
Write(s[i],' ');
end.

4.var
b:array[1..25] of Real;
i:Integer;
begin
//заполнение массива
b[1]:=3;
b[2]:=6;
for i:=3 to 25 do
b[i]:=(b[i-1]+b[i-2])/i;
//вывод массива
Writeln('Массив');
for i:=1 to 25 do
Write(b[i]:9:3);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота