Войти Регистрация Спроси ai-bota

Вывести на экран в виде таблицы все целые числа от a до b ,кратные c

Показать ответ

Ответ:

ichinichi

03.07.2020 09:59

Var a,b,c:integer;
begin
read(a,b,c);
for a:=a to b do
if a mod c = 0 then write(a,' ');
end.

0,0(0 оценок)

Популярные вопросы: Информатика

katerina17054

24.01.2021 14:21

Поделитесь по киту 4-5 классы за 2013год просто завтра кит побыстрей...

Данил1901

22.07.2022 08:12

Друзья, объясните мне как Соединить байты в единое 32-х разрядное двоичное число. Очень важно. если можно пример, буду безмерно благодарна...

pаvеl2

31.12.2022 19:03

Продолжите высказывание: «Человек в процессе своей деятельности моделирует...» А. Летательные аппараты и другие конструкции, созданные руками человека. Б. Объекты и явлении окружающего...

rouberuplay

13.11.2020 18:20

For i: =1 to length(s) do if copy(s, i, 1)= a then k: =k+1; * что выполняет этот фрагмент программы?...

filin781

08.12.2022 05:19

Мудрый отец 6. Определите тип текста....

lvo2010w

26.03.2023 09:24

Расставь числа в порядке возрастания, начиная с самого маленького числа: 7/17, 7/32, 9/32, 7/19, 1/2...

pavelakur

25.06.2020 09:20

В треугольнике ABC проведена биссектриса AL. Точки E и D отмечены на отрезках AB и BL cоответственно, так что DL = LC, ED||AC. Найдите длину отрезка ED, есои известно, что AE = 15,...

samira124

17.07.2022 09:24

напишите только правильные ответы...

Aleluyarew

17.02.2022 11:04

ИДЕТ СОЧ! НА КАРТИНКЕ ВСЕ ВИДНО...

andrewmikilov

09.04.2021 10:51

5. Операционная система - это... * сериисовокупность всех программ, записанных на винчестерсовокупность управляющих и прикладных программсовокупность приложений Word, Excel, PowerPointо...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку