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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 25.06.2015, 01:28   #1
Гарри
Пользователь
 
Регистрация: 11.06.2015
Сообщений: 30
По умолчанию циклы реализовать без использования массивов!

В последовательности чисел сравнить, что больше сумма положительных или произведение отрицательных
Гарри вне форума Ответить с цитированием
Старый 25.06.2015, 09:00   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Код:
var sp,po,i:integer;
begin
 po:=1;
 while true do begin readln(i); if i>0 then inc(sp,i) else po:=po*i;end;
 write('Тех=',sp,' этих=',po); readln;
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Распечатать на экране монитора таблицу символов, используя только циклы (без массивов) и с использованием функций F.Light Помощь студентам 2 16.11.2014 15:15
Распечатать на экране монитора таблицу символов, используя только циклы (без массивов) Лео Месси Помощь студентам 6 04.03.2013 23:02
C++ палиндромы без массивов, без строк Anya She Помощь студентам 7 20.12.2012 22:57