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

Чему будут равны значения переменных a, b после выполнения программы: program dar; var a, b, c: integer; begin a: =0; b: =0 for c: = 1 do 5 do begin a: = a+ 1; b: = b- 1; end; end.

👇
Ответ:
Dilya0608
Dilya0608
20.12.2021
Сперва замечания по коду: после b:=0 нужна точка с запятой
и в цикле между числами пишется to, а не do
a=5; b=-5
4,4(14 оценок)
Открыть все ответы
Ответ:
Губотрах
Губотрах
20.12.2021
// Задание 1
const
  n = 100;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  for i := 1 to 15 do
  begin
    write('a[', i, '] = ');readln(a[i]);
    if i mod 3 = 0 then s := s + a[i];
  end;
  writeln('Сумма элементов, индексы которых кратны 3 = ', s);
end.

Тестовое решение:
число элементов : 10
a[1] = 2
a[2] = 5
a[3] = 1
a[4] = 5
a[5] = 6
a[6] = 3
a[7] = 5
a[8] = 6
a[9] = 1
a[10] = 8
Сумма элементов, индексы которых кратны 3 = 5

// Задание 2
const
  n = 100;

var
  a: array[1..n] of integer;
  i: integer;

begin
  for i := 1 to 15 do
  begin
    a[i] := random(100);write(a[i]:4);
  end;
  writeln;
  for i := 1 to 15 do
  begin
    if i mod 2 = 0 then a[i] := a[i] * 2;
    write(a[i]:4);
  end;
end.

Тестовое решение:
  35  98  67  94  63  18  26  17   3   5   0  77  47  11  33
  35 196  67 188  63  36  26  34   3  10   0 154  47  22  33

// Задание 3
const
  m = 100;

var
  a: array[1..m] of integer;
  i, n, k, tmp: integer;

begin
  write('число элементов : ');
  readln(n);
  for i := 1 to n do
  begin
    write('a[', i, '] = ');readln(a[i]);
  end;
  repeat
    write('Введите к (k<>1 и k<>n)');
    readln(k);
    if (k = 1) or (k = n) then writeln('Ошибка, повторите ввод');
  until (k <> 1) and (k <> n);
  for i := 1 to n do write(a[i]:4);writeln;
  tmp := a[k - 1];a[k - 1] := a[k + 1];a[k + 1] := tmp;
  for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
число элементов : 6
a[1] = 2
a[2] = 7
a[3] = 3
a[4] = 8
a[5] = 9
a[6] = 1
Введите к (k<>1 и k<>n)4
   2   7   3   8   9   1
   2   7   9   8   3   1
4,8(4 оценок)
Ответ:
omararu2006
omararu2006
20.12.2021

# Задание 1

num = input('Введи целое число: ')

print('Количество цифр в числе = {}'.format(len(num)))

# Задание 2

from random import randint

print('Выпало {}'.format(randint(1, 6)))

# Задание 3

a = int(input('Введи 1 число: '))

b = int(input('Введи 2 число: '))

i = min(a, b)

while True:

   if i % a == 0 and i % b == 0:

       break

   i += 1

print(f'НОК = {i}')

# Задание 4

def fibonacci(n):

   a = 0

   b = 1

   if n < 0:

       print("Некорректный ввод!")

   elif n == 0:

       return a

   elif n == 1:

       return b

   else:

       for i in range(2, n):

           c = a + b

           a = b

           b = c

       return b

n = int(input('Введи N-ое число Фибоначчи: '))

print('Число Фибоначчи = {}'.format(fibonacci(n)))

Объяснение:

Python 3.8.2

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