Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, эксперты!
Даны натуральные числа от 1 до 50.Найти сумму тех из них, которые делятся на 5 или на 7.

Вопрос задала: Iren Key (статус: Посетитель) Вопрос отправлен: 19 марта 2011, 11:13 Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

Чо, опять? Я тя умоляю!

procedure proc;
const
  X: array[0..15] of Byte = (5, 7, 10, 14, 15, 20, 21, 25, 28, 30, 35, 40, 42, 45, 49, 50);
var
  i, Sum: Integer;
begin
  Sum:= 0;
  for i:= Low(X) to High(X) do
    Inc(Sum, X[i]);
  WriteLn(Sum);
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 19 марта 2011, 11:19

Ответ #2. Отвечает эксперт: DNK

Здравствуйте, Iren Key!

var i, sum: integer;
begin
  sum := 0;
  for i := 1 to 50 do
    if (i mod 5 = 0) or (i mod 7 = 0) then
      inc(sum, i);
  showmessage(IntToStr(sum));
end;

Ответ отправил: DNK (статус: Студент) Время отправки: 19 марта 2011, 11:32

Мини-форум вопроса

19 марта 2011, 11:34: Вопрос перемещён из тематического раздела Pascal » Программирование на Pascal в раздел Лабораторный практикум » Pascal модератором min@y™

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.