Anonymní profil Anonymní uživatel – Programujte.com

Takze nejak takhle
program test;
uses crt;
var cislo :real;
sucin : word;
i,pom : byte;
begin
clrscr;
i:=0;
sucin:=1;
pom:=0;
repeat
real(i);
write(i,'. cislo = ');
readln(cislo);
if cislo > 0 then sucin:=sucin*cislo
else if cislo < 0 then inc(pom);
until cislo=0;
writeln;
if pom=i-1 then sucin:=0;
writeln('Sucin kladnych clenov postupnosti = ',sucin);
readln;
end.

a kdyz tam budu chtit i realna cisla tak napisi real

To jozo0025 : jak mam naprogramovat tohle v pascalu.Předem moc děkuji.

Program načte neprázdnou posloupnost nenulových čísel ukončenou číslem
nula, která už do posloupnosti nepatří, a určí součin těch členů posloupnosti,
které byla kladná.

To Nosko : nevim v jakem programu to mam udelat,v pascalu mi to nefunguje.
Ale presto dekuji za pomoc.

To jozo0025 : to je přímo pro pascal a nebo pro Delphi a Lazarus.

Prosím potřeboval bych poradit.

Program načte neprázdnou posloupnost nenulových čísel ukončenou číslem
nula, která už do posloupnosti nepatří, a určí součin těch členů posloupnosti,
které byla kladná.

Prosím o pomoc stouto ulohou.Vůbec neumim programovat.
Sestavte funkční proceduru, která určí kolik sudých čísel se vyskytlo v
posloupnosti N celých čísel. Použijte ji v programu, který načte 2 přirozená
čísla K,L, počet řádků a počet sloupců matice, dále celočíselnou matici
typu (K,L) a vytiskne zadanou matici rozšířenou o jeden sloupec v kterém
budou počty sudých čísel na jednotlivých řádcích.

Zdravím,
potřeboval bych pomoci.Dostal jsem k Vánocům nová sluchátka,které se zapojují do USB portu,avšak když do kteréhokoliv USB portu něco zapojím,vypne se mi počítač a dokud to je zapojené,nezapne se.NEvíte někdo co s tím??
Díky..