CSKAFENKA
02-26-2008, 05:54
Напишете програма, която въвежда отрицателни числа от клавиатурата и изчислява тяхното произведение, докато се въведе число, равно на 0. Да се изведе на екран изчислената стойност и броя на въведените числа.
Anf3tamin4o
02-26-2008, 12:07
Program CSKAFENKA;
uses
crt;
var
PrOtr,Temp:Real;
Count:Integer;
begin
clrscr;
PrOtr:=1.0;
Count:=0;
Repeat
Write('Vavedete chislo t klaviaturata:');
Readln(Temp);
if Temp<0 then
begin
Count:=Count+1;
PrOtr:=PrOtr*Temp;
end;
Until Temp=0;
Writeln('Proizvedenieto na otricatelnite elementi e:',PrOtr:0:2 ,' i tehniqt broi e:',Count);
Writeln('Press Enter to exit...');
Readln;
end.