Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Альбина1597
05.08.2021 23:55 •
Информатика
Голова не соображает(; з)ну на паскале печатает на экране в строчку, через запятую все натуральные числа от 3 до этого числа, которые делятся на 3
Показать ответ
Ответ:
margaRita2281
06.07.2020 14:59
Var
i, k: integer;
st1, st2: string;
begin
write('Введите число: ');
readln(k);
st1:='';
for i:=3 to k do
if (i mod 3 = 0) then
begin
str(i, st2);
st1:= st1 + st2 + ', ';
end;
st1[Length(st1)-1] := '.';
writeln(st1);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Evgeniusz
13.02.2021 15:40
с информатикой там через пункт E...
нина655
28.02.2020 03:19
Написать программу: возведение числа 2 в пятую степень,используя три типа циклов...
Ritka121
07.05.2023 07:33
Средняя скорость передачи данных по некоторому каналу связи равна 2 400 000 бит/с. сколько секунд потребуется для передачи по этому каналу цветного изображения размером...
Kuro111
24.11.2021 01:16
6. Напишите программу, которая получает целое число и выводит ответ «да», если это число трехзначное. 7. Напишите программу, которая получает с клавиатуры количество повторений...
MrRazor1
08.09.2021 10:27
Определите типы данных по их именам int () float () Bool () str () вещественные числа (27,8; -365,533; 5,0) линия ( jgffd ; v ) логический (Верно, Ложь) Целые числа (-156;...
dinaumralieva
29.04.2020 08:09
Жаратылыстану помагите класс (от 11 до 16)...
rabramchik
29.04.2020 08:09
сделать физику, желательно первый вариант, очень выручите >...
daniil10457899Yb
29.04.2020 08:09
«Қазақ әдебиеті» пәнінен 1-тоқсан бойынша жиынтық бағалау тапсырмалары 1-бөлім1.Аяз би неліктен өзін «жаманмын» деді?A) Уәзірлерге көмектескені үшінB) Ханның жұмбағын шешу...
david2005317
29.04.2020 08:09
Складіть та запишіть невеликий твір на суспільну тему , використавши ССР , речення з прямою мовою та цитати...
данил1771
04.08.2020 03:15
На 72 г алюминия подействовали 160 г серы. Определите, какое вещество взято в избытке и найдите массу образовавшегося сульфида алюминия...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, k: integer;
st1, st2: string;
begin
write('Введите число: ');
readln(k);
st1:='';
for i:=3 to k do
if (i mod 3 = 0) then
begin
str(i, st2);
st1:= st1 + st2 + ', ';
end;
st1[Length(st1)-1] := '.';
writeln(st1);
end.