Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.10.2013, 16:30   #1
Руслан56
Пользователь
 
Регистрация: 07.10.2013
Сообщений: 30
По умолчанию Помогите с задачей по паскалю

В числовую переменную последовательно вводятся произвольные числа не равные нулю. Количество вводимых чисел заранее неизвестно. Требуется вы¬числить и напечатать сумму и количество тех из них, порядковые номера которых являются кратными 2 или 3.

ПАСКАЛЬ



с этой задачей не могу справиться
Руслан56 вне форума Ответить с цитированием
Старый 21.10.2013, 10:00   #2
SaLoKiN
Форумчанин
 
Аватар для SaLoKiN
 
Регистрация: 19.09.2013
Сообщений: 597
По умолчанию

Код:
program skuchno;

var
x,count,summ:real;
i : integer;

begin
i:=0;
count:=0;
summ:=0;
read(x);
while x<>0 DO
	begin
		i:=i+1;
			if (i mod 2 = 0) OR (i mod 3=0) then 
				begin
				summ:=summ+x;
				count:=count+1;
				end;
	
    read(x);
end;
writeln(summ );
writeln(count);

end.
чтобы закончить ввод жмем 0
Сделал сам, помоги другому!
Что-то работает не так? Дебаггер в помощь!!!

Последний раз редактировалось SaLoKiN; 21.10.2013 в 10:13.
SaLoKiN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите пожалуйста с задачей по паскалю! ...Оленька... Помощь студентам 2 19.01.2009 23:23
Помогите с задачками по Паскалю NTFS Помощь студентам 3 22.04.2008 21:27
помогите с курсовой по паскалю. zem@1111 Помощь студентам 1 12.09.2007 15:42