Сумма всех целых чисел

@reddack1 · Регистрация: 04.09.2013

Author24 — интернет-сервис помощи студентам

Найдите сумму всех целых чисел от А до B, которые заканчиваются на цифру 5 или на цифру 0 (значение А и В введите с клавиатуры).

@ermolay · 04.09.2013, 23:33

Pascal

var
  i,a,b,s: integer;
begin
  write('Ââåäèòå ÷èñëà A è B: ');
  readln(a,b);
  for i:=a to b do
    if i mod 10 in [0,5] then s:=s+i;
  writeln(s);
  readln;
end.

@reddack1 0 / 0 / 0 Регистрация: 04.09.2013 Сообщений: 20
		1
	Сумма всех целых чисел 04.09.2013, 21:48. Показов 1111. Ответов 1 Метки нет (Все метки) Найдите сумму всех целых чисел от А до B, которые заканчиваются на цифру 5 или на цифру 0 (значение А и В введите с клавиатуры). 0

	04.09.2013, 23:33

Сумма всех целых чисел

Решение