Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
antimonovaanas
08.01.2020 20:18 •
Информатика
Петя васечкин хочет выяснить, делится ли на 7 натуральное число, состоящее не более чем из 60 цифр. требуется написать программу, которая выполняет желание пети и находит остаток от деления введенного числа на 7
Ответ:
Cfynks
10.07.2020 10:24
(язык программирования PascalABC.net)
var
a,b:integer;
begin
writeln('ВВедите число: ');
read(a);
b:=a mod 7;
writeln('Исходное число: ',a,' Остаток: ',b);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Marii111
12.07.2022 15:56
Буду очень признательна за...
Tanya31323
01.03.2023 10:08
В некоторой стране автомобильный номер состоит из 9 символов: сначала 3 буквы, затем 4 цифры, затем ещё 2 буквы. При этом буквы могут быть выбраны только из 25 строчных...
venyast56oxem2g
06.06.2020 03:32
Есептеуіш техникасының даму кезеңдерін атаңдар...
nikita1424
07.06.2020 22:42
А) Постройте таблицу истинности логической функции F=(A\/B) /\ (A\/B) А В 1 0 1 0 0 0 0 0 1 1 1 1 0 1 0 1 Б) Запишите в виде логического выражения следующее высказывание:...
Alexsandar
17.02.2020 21:41
Задача по информатике Постройте блок-схему. Вводится четырёхзначное число (abcd). Вывести сумму произведений его цифр ab + cd. Проработайте блок-схему с числом 4895....
ekaterimazimina
17.10.2022 16:47
Напишите требования по порядку к соревнованиям по робо-сумо Робо-сумо жарысының талаптарын ретімен жаз...
DreamEvilDead
06.03.2021 17:58
Фразы учителя в рассказе 13 подвигов геракла...
Саша12а
02.12.2021 13:32
Скласти речення до слів - зеленночубий, селянсько-козацький, волелюбний, багатогранний...
hard26
09.11.2020 02:52
Решите тригонометрическое уравнение или неравенство ( желательно с рисунком )одно из трёха)arcctg lxl= π/4б)2arcsinx * arccosx=-π^2в)3arccos x/2 ≤ 2π...
саша4265
24.01.2021 21:31
Сколько длилась дней атлахская битва ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
a,b:integer;
begin
writeln('ВВедите число: ');
read(a);
b:=a mod 7;
writeln('Исходное число: ',a,' Остаток: ',b);
readln;
end.