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

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

Страница 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

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