Вопрос что надо изменить что бы програма считала дроби

[Кирилл2013]

PROGRAM N1;
VAR N,S:REAL;
BEGIN
S:=0;
N:=2;
WHILE N <= 100 DO
BEGIN
S:=S+N;
N:=N+2;
END;
WRITELN ('СУМА РАВНА',S);
END.

 

[Федор13регион]

Задай N=дробь; и N:=N+дробь; и S будет дробь. А при целых и результат будет целым.

 

[квыдрпвап]

Задай N и S дробные, и эта бредовая программа будет считать дроби...

 

[Djonny_modPack]

аха-аха боты уже научились считать дроби

 

[ауцуа]

кто-то капс не выключил

 

[zik643]

Вопрос ни о чём… Какие дроби? Что ТС под ними понимает? При этом, даёт программу, где оперирует целыми, хоть и хранит их в действительных переменных… Для справки: Дроби бывают правильные и неправильные, ну и ещё десятичные. Но в любом случае это запись вида Ч — З где Ч – числитель, а З – знаменатель. А десятичные — это „цццц, дддддд“, где „цццц“ – целая часть и „дддддд“ – дробная разделённые запятой (у англичан точкой).

 

[qwerty999]

Эта программа считает сумму и дроби здесь ни при чем.