1. Найдите сумму всех кратных 5 чисел в спектре от 1

1. Найдите сумму всех кратных 5 чисел в диапазоне от 1 до 100 2. Вычислить и вывести на экран 4 первых элемента числового ряда, данного формулой y =(1/2x )+(1/3x)

Задать свой вопрос
1 ответ

1)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 1 to 100 do if i mod 5 = 0 then sum:= sum + i;

   write(sum);

end.

2)

var x: real;

begin

   for x:= 1 to 4 do writeln(0.5 * x + 1 / 3 * x);

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт