нужно данный алгоритм описать на псевдокоде ну там (кон, пок

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: 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 из 1
1

прикладная математика