Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » нужно данный алгоритм описать на псевдокоде ну там (кон, пок (нужно данный алгоритм описать на псевдокоде ну там (кон, пок)
нужно данный алгоритм описать на псевдокоде ну там (кон, пок
program Posledovatelnost;
var
a, b: integer;
t: boolean;

begin
t := false;
Writeln(
'Введите через пробел последовательность положительных чисел, окончание ввода "0"');
read(a);
b := 1;
while a <> 0 do
begin
if a > 0 then
begin
b := b * a;
t := true;
end;
read(a);
end;
if t then
Writeln('Произведение положительных чисел последовательности = ', b)
else
Writeln('В последовательности кроме нуля нет элементов');
end.
1 | Автор: tolyanl1985 | 2013-01-08, 20:25   |  Репутация: [ + 0 ]
1 | Автор: tolyanl1985 | 2013-01-08, 20:25   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » нужно данный алгоритм описать на псевдокоде ну там (кон, пок (нужно данный алгоритм описать на псевдокоде ну там (кон, пок)
Страница 1 из 11
Поиск: