Question

СДЕЛАЙТЕ, ПРОШУ, это программа для Паскаля....

З клавіатури вводяться числа m та n (m — початок діапазону, п — його кінець). Потрібно знайти суму всіх парних чисел, які належать цьому діапазону. Для цього потрібно використати циклічні структури, оператори умови та функцію mod.

Answer 1

===== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Введите границы диапазона:');

 if m > n then  // если границы ввели "наоборот"

   Swap(m, n);

 Range(m, n).Where(p -> p.IsEven).Sum.Print

end.

Answer 2

Да все понятно мне. Но это потому что я уже студент 3 курса. То, что дала учительница - это код на древнейшей версии Паскаля, я уже писал, 1972 год. Видимо, как она где-то выучила тот Паскаль, так на это и остановилась в своем профессиональном развитии. И теперь тянет, как балласт, всех на это дно.

Answer 3

А можешь помочь... исправить и кое что добавить? Ну, что бы нормальная программа получилась. Пожалуйста...:(

// коммент
program MyProgram;
var
m, n, s, i:integer;
begin
write ('Введите начало диапазона= ');
read (m);
write ('Введите конец диапазона');
read (n);
for i:= m to n do
if i mod 2=0 then

writeln ('Сумма всех четных чисел = ', s)
end

Answer 4

ладно, и на том спасибо..