пожалуйста, кто-нибудь, помогите)))) - Форум
Пятница, 09.12.2016, 06:48
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » пожалуйста, кто-нибудь, помогите))))
пожалуйста, кто-нибудь, помогите))))
inessaaДата: Среда, 23.12.2009, 15:24 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 3
[ 0 ]
Статус: Offline
Вычисление произведения последовательно вводимых чисел. Определить максимальный по модулю элемент. Остановить обработку при вводе признака конца - числа из диапозона от -5 до 5(включительно). Тип обработки данных - целые.
тут попроще надо задачку выстроить, если это возможно.))
Пожалуйста....
 
ignorerДата: Среда, 30.12.2009, 17:01 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
var a, b, d : integer;
c : boolean;
begin
cls;
a:=1;
repeat
read(b);
if abs(b)>abs(d) then d:=b;
if abs(b)<=5 then c:=true
else begin
a:=a*b;
writeln('Произведение сейчас равно', a);
end;
until c;
write('Конечный результат ', a, ' наибольший по модулю элемент ', d);
end.
задача решена на PascalABC
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » пожалуйста, кто-нибудь, помогите))))
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016