Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Программы подсчета суммы

Автор: Red 17.05.2007 2:39

Помогите справиться с заданием.
Нарисовать блок-схему и написать программу на языке Паскаль.
Подсчитать сумму чисел от 1 до 100, делящихся на 3.
Заранее спасибо!

Автор: Айра 17.05.2007 3:16


uses wincrt;
var sum,i: integer;
begin
sum:=0;
for i:=1 to 100 do
begin
if (i mod 3)=0 then sum:=sum+i; {если при делении i на 3 остаток равен нулю}
end; {значит число кратно трем, добавляем его к сумме}
writeln (sum);
end.


Автор: Lapp 17.05.2007 5:55

Айра, скажи - для чего тут wincrt?

Автор: Айра 17.05.2007 11:35

Цитата
Айра, скажи - для чего тут wincrt?

У меня без него (это же вроде подключаемый модуль, или что-то такое) ни одна программа не работает, компилятор какой-то недоделанный. А убирать это из кода я все время забываю..

Автор: Lapp 17.05.2007 14:09

И эта тоже не работает? blink.gif точно?..

Название компилятора - в студию! smile.gif

Автор: Red 17.05.2007 22:27

завтра сдавать программу, надеюсь, что правильно!!! Спасибо!!!

Автор: Айра 18.05.2007 2:32

Цитата
Название компилятора - в студию!

Звать его Turbo Pascal 7.0
Цитата
И эта тоже не работает? точно?..

Точно. C этой строчкой все выглядит так:
Прикрепленное изображение
Без нее выдает следующее сообщение:
Прикрепленное изображение
У него даже библиотеки CRT нет(((