1. Информатика
  2. Составьте программу, которая

Составьте программу, которая выводит на экран таблицу перевода n, n+1, n+ m дней количество недель.

zlatalobacheva zlatalobacheva    1   19.06.2019 15:40    7

Ответы
daryabozhko2006 daryabozhko2006  15.07.2020 20:24
Var
i, n, m: integer;
begin
readln(n, m);
for i := n to m do
begin
  if (i mod 7 = 0) then
write(i div 7,' ')
else
write(i div 7 + 1,' ');
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
aibekauezhanme aibekauezhanme  23.04.2020 10:51
Запиши доменное имя компьютера, зарегистрированного в домене первого уровня образование, в домене второго уровня cv и имеющего собственное имя www....
ElenaDzaraxova ElenaDzaraxova  23.04.2020 10:51
Составьте таблицу для решения задачи: Автобус начинает свое движение от остановки и за 6 с увеличивает свою скорость до 30 км/ч. Затем 2мин. автобус едет с постоянной скоростью...
tooijas tooijas  24.11.2020 06:43
Составить программы на языке БЕЙСИК...
Romakot Romakot  24.11.2020 06:43
Задание 1. Сравни предназначение некоторых органов человека и устройств компьютера при реализации информационных процессов Ввод информации Обработка и хранение информации Вывод...
darina2468 darina2468  24.11.2020 06:42
Ячейка содержит запись =СУММ(А1:А10) Определи тип записи 1)Формула2)Функция 3)Аргумент4)Диапазон ​...
semkin2004p0ds7g semkin2004p0ds7g  04.04.2022 10:24
Требуется вычислить число A по формуле A = (k^0 + k^1 + k^2 + k^3 … + k^N ) mod P Определение a ≡ b (mod m), b это остаток деленияа на m. Пример: 41 ≡ 2 (mod 13), 41 = 2 + 13*3...
Монокль Монокль  04.04.2022 08:57
У вигляді для пайтона!! розробіть проект сімейний депозит, за до якого за до якого, можна визначити яку суму отримає родина в кінці року, якщо на його початку відкриває в банку...
AliskaLao16 AliskaLao16  04.04.2022 05:30
2. Через сколько секунд спрыгнут все пауки? Длина линейки 10 см, а начальные точки и направление движения пауков показаны на схеме. В ответе укажи только число....
hohotuchka hohotuchka  04.04.2022 05:23
Інформатика. ів. Дати відповідь на питання. 1. Що таке електронна таблиця і яке її призначення? 2. Як позначаються стовпці і рядки в ЕТ? 3. Які типи даних опрацьовують ЕТ?...
Lizak11 Lizak11  04.04.2022 04:32
Почему не получается скачать игру роблокс? (Roblox) Телефон Vivo y12, пытаюсь сестре скачать игру, но когда установка доходит до конца, заново пишет Установить . Перезагрузка...

Популярные вопросы