Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
nurbolatborec7
25.07.2019 09:50 •
Информатика
Найти все двузначные числа,которые кратны числу n(программирование паскаль)
Показать ответ
Ответ:
rim2891
24.09.2020 12:35
//Pascal ABC.NET v3.1 сборка 1172
//Продвинутый вариант
Var
n:integer;
begin
readln(n);
range(10,99).Where(x -> x mod n=0).Print(',');
end.
//"Школьный" вариант
Var
i,n:integer;
begin
readln(n);
for i:=10 to 99 do
if i mod n=0 then write(i,',');
end.
Пример ввода:
3
Пример вывода:
12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75,78,81,84,87,90,93,96,99
0,0
(0 оценок)
Ответ:
UlyanaAleks
24.09.2020 12:35
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,i:integer;
begin
write('Введите число ');
readln(a);
for i:=10 to 99 do
if i mod a = 0 then writeln(i,' кратно ',a);
end.
Тестовое решение:
Введите число 6
12 кратно 6
18 кратно 6
24 кратно 6
30 кратно 6
36 кратно 6
42 кратно 6
48 кратно 6
54 кратно 6
60 кратно 6
66 кратно 6
72 кратно 6
78 кратно 6
84 кратно 6
90 кратно 6
96 кратно 6
0,0
(0 оценок)
Популярные вопросы: Информатика
DaiDZ
27.04.2020 20:43
Заполните пропуски РЕБЯТА! Массивом на Паскале называют … совокупность … однотипных величин, хранящихся в определенном месте памяти 3.Приведите примеры массивов:...
arseniyyuldash
27.04.2020 20:42
Дано целое положительное значение N. Требуется вычислитьсумму:1!+2!+3!+...+N!...
Lukasheva1928
23.01.2020 17:18
Снаписанием программы на pascal abc ! заранее !...
Кричащийёж
17.12.2020 20:40
Что получится в результате действий исполнителя Чертежник по следующему алгоритму:...
Anna282005u
17.12.2020 20:44
РЕШИТЬ ЗАДАНИЯ С МАССИВАМИ ПО ИНФОРМАТИКЕ. 9- 10 КЛАСС...
krotkovaksenia1
27.08.2019 02:40
Записали выражение: 2016−(2015)+2014−(2013)+…+2−(1)2016−(2015)+2014−(2013)+…+2−(1) (знаки плюс и минус чередуются). можно поменять местами любые два числа (не трогая...
Qmpzaslk
27.08.2019 02:40
Найти и исправить ошибки в записи оператора ветвления if x =y then begin x: =0; y: =0; else end; write(z)...
komandaazart
27.08.2019 02:30
Установите соответствие между горячими клавишами windows и тем, что они делают. ctrl+x ctrl+v ctrl+a ctrl+delete alt+f4 ctrl+c ctrl+z ctrl+p shift+delete...
Корни
27.08.2019 02:30
Рисунок размером 2048x1024 пикселей сохранили в виде файла 1,5 м байт. какое количество информации было использовано для кодирования цвета 1 пикселя? каково возможное...
Dasha170105
27.08.2019 02:30
Какой цвет модели rgb будет получен при следующих параметрах 8-ми цветной палитры...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
//Продвинутый вариант
Var
n:integer;
begin
readln(n);
range(10,99).Where(x -> x mod n=0).Print(',');
end.
//"Школьный" вариант
Var
i,n:integer;
begin
readln(n);
for i:=10 to 99 do
if i mod n=0 then write(i,',');
end.
Пример ввода:
3
Пример вывода:
12,15,18,21,24,27,30,33,36,39,42,45,48,51,54,57,60,63,66,69,72,75,78,81,84,87,90,93,96,99
var a,i:integer;
begin
write('Введите число ');
readln(a);
for i:=10 to 99 do
if i mod a = 0 then writeln(i,' кратно ',a);
end.
Тестовое решение:
Введите число 6
12 кратно 6
18 кратно 6
24 кратно 6
30 кратно 6
36 кратно 6
42 кратно 6
48 кратно 6
54 кратно 6
60 кратно 6
66 кратно 6
72 кратно 6
78 кратно 6
84 кратно 6
90 кратно 6
96 кратно 6