tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Определить кратно ли заданное
Определить кратно ли заданное число 3 если нет вывести остаток
яждупомощи
1 20.09.2019 19:20
2
Ответы
Sulifat
08.10.2020 05:29
Var
a,b:integer;
begin
readln(a);
if a mod 3 = 0 then
begin
writeln(a,' кратно 3');
end
else
begin
writeln(a mod 3);
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
marktopskiy34567
09.04.2019 10:14
Is viaxyl male enhancement scam or legit?...
BanderSap
20.08.2019 01:40
Напишите программу, которая выведет загадку (с отгадкой): на компьютерном столе она мне. колесиком и кнопкой я ловко. pascal-язык программирования...
matsakov99
20.08.2019 01:40
Директор работал с каталогом d: \школа\ученики\адреса. сначала он поднялся на один уровень вверх, затем спустился на один уровень вниз в каталог успеваемость, потом...
mila7772
20.08.2019 01:40
1.дана длина ребра куба a. найдите объем куба v=a3 и площадь его поверхности s=6∗a2 2.даны длины ребер a, b, c прямоугольного параллелепипеда. найти его объем v=a∗b∗c...
stefanikolaeva
16.09.2019 06:00
Поисковый сервер выдаёт следующее число страниц по определённым запросам: собаки 50 кошки 60 лемуры 70 собаки | кошки 80 собаки | лемуры 100 лемуры & (собаки...
pomorcevakata98
16.09.2019 06:00
Поисковый сервер по данным запросам выдаёт следующее кол-во поисковых страниц: собаки 50 кошки 60 лемуры 70 собаки | кошки 80 собаки | лемуры 100 лемуры & (кошки...
anorbaeva
16.09.2019 06:00
По программированию на javascript. нельзя пользоваться никакими свойствами и мас- сивов (indexof, slice, и т. кроме length и напишите функцию f(a,b), которая принимает...
Parastaev
24.01.2020 19:31
На какую тему можна сделать презентацию на информатику...
Milana000000111
24.01.2020 19:26
Какие устройства компьютера выполняют функцию: 1. приём (ввод) информации, 2. хранение информации, 3. обработка информации, 4.передача (вывод) информации?...
ivancornij8
24.01.2020 19:24
Вычислить функцию y=sqrt(1-x) на интервале от -5 до 5 с шагом 0,5 (с цикла пока). вычислить функцию y=sqrt(1-x)/(x+1) на интервале от -5 до 5 с шагом 0,5 (с цикла...
Популярные вопросы
Вставьте пропущенные буквы,выделяя суффиксы причастий,обозначая...
1
Что я делаю неправильно? дано: m(bacl2)=12г. найти: m(осадка)...
1
Сравни уравнения каждой пары и их решения х*10=45 000 100*х=45...
1
Зминить подани слова так,щоб у них видбулося чергування голосних...
1
Напишите сочинение описание заката(не из интернета) 10 предложений...
2
Сколько букв и звуков в словах- хочу,кому,хорошо,взяла,,работа,надо,...
3
Дополните я считаю себя примером для подрожания потому что 1)стараюсь...
2
Оля прочитала в январе n книг,в феврале в 2 раза больше, чем...
3
Перевод текста: но слишком долго за компьютером сидеть нельзя...
3
Ясное осеннее утро радует хорошей погодой.выпиши словосочетания...
2
a,b:integer;
begin
readln(a);
if a mod 3 = 0 then
begin
writeln(a,' кратно 3');
end
else
begin
writeln(a mod 3);
end;
end.