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

1. Напишите программу для вывода на экран чисел находящихся по обе стороны (до и после) введённого пользователем числа. 2. N-ное количество учеников собрали яблок и поделили поровну между собой. Остальные яблоки оставили в корзинке.

а) какое количество яблок досталось каждому ученику?
б) сколько яблок в корзине?
в) напишите программу для варианта когда n и k водятся пользователем.

3. Напишите программу для определения двух последних цифр введённого пользователя числа большего чем двузначное.

4. Автобус за день проходит n км за сколько дней автобус проедет расстояние m км, n и m вводиться пользователем. Напишите программу для решения задачи

5. Путь пройденный муравьём обозначен в миллиметрах обозначьте его в метрах в сантиметрах и миллиметрах (например, 45 786 = 45 м 78 см 6 мм)

6. Грань куба равна а. напишите программу вычисляющую объём куба.

7. Даны числа a, b, c и d напишите программу для вычисления среднего арифметического значения.

8. Школьная администрация решила организовать кабинет математике для третьих классов. поскольку занятия проходят одновременно необходимо закупить парты для каждого кабинета отдельно за одной партой не смогут сидеть больше 2 учеников сколько парт надо купить если известно количество учащихся в каждом классе. Пользователь вводит три значения количество учеников в каждом классе.

Показать ответ
Ответ:
Keks200220
Keks200220
16.04.2022 23:12
Const   n = 5; var   i: integer;   a: array[1..n * 2 + 1] of integer; begin   writeln('исходный массив: ');   for i : = 1 to 2 * n do   begin       a[i] : = random(99) + 1;       write(a[i] : 5);   end;   for i : = 2 * n + 1 downto n + 1 do       a[i] : = a[i - 1];   a[n + 1] : = 0;   writeln();   writeln('полученный массив: ');   for i : = 1 to 2 * n + 1 do       write(a[i] : 5); end.
0,0(0 оценок)
Ответ:
57788
57788
11.07.2020 14:26
1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота