1) Отыскать сумму чисел от 10 до n, кратных 10, где

1) Отыскать сумму чисел от 10 до n, кратных 10, где (10 )2)Вывести последовательность четных чисел от m до n, где n 3)Вывести последовательность чисел кратных трем от m до n, где ngt;m.

Напишите пожалуйста решение на языке Паскаль, используя(если их надобно использовать) циклы: цикл "пока" и цикл "до"

Задать свой вопрос
Бизяк Борька
На данный момент сделаю
Артемий
превосходно:) жду)
1 ответ
Решение ниже в комменты
а
Никита Крыгов
program HelloWorld;varn, i, sum : integer;begin read(n); sum:=0; while n>=10 do begin if n mod 10 = 0 then sum:=sum+n; n:=n-1; end; write(sum);end.
Владислав Бридштейн
-------------------------------------
Стефания
2-ая задача
Galka Kurpjaeva
----------------------------------
Амина Кистикина
program HelloWorld;varm, n : integer;begin read(n,m); while m>=n do begin writeln(n); n:=n+1; end;end.
Серж
----------------------------------
Варвара
ретья задачка
Аделина Буренкова
----------------------------------
Bezrukij Vasja
program HelloWorld;varm, n : integer;begin read(n,m); while m>=n do begin if n mod 3 = 0 then writeln(n); n:=n+1; end;end.
Гуторкина Надежда
Спасибо)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт