Помогите найти ошибку

[Margosham-k]

Помогите найти ошибку

// Найти сумму чисел, кратных n, на отрезке от а до b.
program zad1;
uses crt;
var
a,b,i,n,sum:integer;
begin
write('a');
read (a);
write('b');
read (b);
write('n');
read ;
sum:=0;
for i:=a to b do
begin
if a mod n = 0 then sum:=sum+i;
end;
write('summa = ', sum);
end.

программа считает сумму всех чисел...а мне нужно чтобы только кратные N.. в чем ошибка?

 

[Vladimir_S]

в чем ошибка?

Вот в этой строке:
у Вас: if a mod n = 0 then sum:=sum+i;
а надо: if i mod n = 0 then sum:=sum+i;
Кроме того, рекомендую считывание чисел с экрана делать командой не read, а readln. С read можете нарваться на заморочки.

 

[Margosham-k]

спасибо за помощь=)

 

[kreol]

С read можете нарваться на заморочки.

Я конечно использую readln (почти всегда, красивей ввод получается ) но какие заморочки с read?
Когда юзал вроде все ок...

 

[Vladimir_S]

Я конечно использую readln (почти всегда, красивей ввод получается ) но какие заморочки с read?
Когда юзал вроде все ок...

Подробно об этом (и на "бытовом" уровне - у меня, и на профессиональном - у LongCat) здесь:
http://www.tehnari.ru/f43/t32458/

 

[kreol]

Угу. Ясно. В принципе я правильно использовал read для файлов. Просто не осознавал этого
Ну а для чтения с клавиатуры походит не плохо.

Кст. read интересно использовать когда имеешь дело с масивом символов (у нас в универе был такой глюк у преподавателя, нельзя было использовать string)

var a: array [0..4] of string;
    i: integer;
begin
for i:= 0 to 4 do
    read(a[i]);
writeln(a[0]);
end.

Вполне культурно считывает строку)

 

[Vladimir_S]

Вполне культурно считывает строку)

Ну ничего себе - "культурно"! Программа должна считать 4 строки и после этого выдать на экран первую, а она что делает? Считывает первую, воспроизводит ее на экране и вылетает. Та еще "культура".