Написать программу нахождения чисел кратных 3 в диапазоне от 1 до
Frororo
1
30.04.2020 17:47
2
Другие вопросы по теме Информатика
Лизунчик1211
26.08.2019 11:20
kamil228337
26.08.2019 11:20
shubina021
26.08.2019 11:20
Fastik26
26.08.2019 11:20
dimaburkovskiy3
26.08.2019 11:20
Arina1518
26.08.2019 11:20
inara12345
26.08.2019 11:20
Gagarin51
26.08.2019 11:20
Сменка
26.08.2019 11:20
Популярные вопросы
- Задание 4. Прочитайте документ и ответьте письменно на вопросы....
3 - Мәтіннен берілген сөздерге сәйкес мағыналарын табыңыз: бастапқы...
3 - Прочитайте текст , выявите причины великих географических открытий....
3 - Кiлька днiв пiдряд пiд вiкном на кленi зявлялась бiлка. Е Гуцало...
3 - 5. Заполните таблицу Типы желез Эндокринные железы Экзокринные...
1 - ЭТО СОР ПО КАЗАК АДЕБИЕТ 7 КЛАСС...
1 - 5. Установите соответствие между формулой вещества и видом химической...
1 - Объясните, что означают термины. [4 б] Жуз Казах Народ Алаш...
1 - Дополни схему последствия внешной политики казахского ханства 2...
2 - Знайдіть гіпотенузу прямокутного трикутника, якщо один із катетів...
3
var
n,s:integer;
begin
n:=3; s:=0;
while n<=100 do begin
s:=s+n;
n:=n+3
end;
Writeln('S=',s)
end.
Результат
S=1683
Объяснение:
вроде так