Wpisy dla tagu: turbo pascal

Data: 23 lipca 2014 || Autor: Admin || Kategoria: Turbo Pascal

Program obliczający sumę z 10 podanych przez użytkownika liczb

program tp3;
uses crt;
var
suma,i,a: integer;
begin
clrscr;
i:=0;
repeat
write ('Podaj liczbe ');
readln(a);
suma:=suma+a;
i:=i+1;
until(i=10);
writeln('Suma podanych liczb wynosi ',suma);
readln;
end.

program tp3;

uses crt;

var

suma,i,a: integer;

begin

clrscr;

i:=0;

repeat

write ('Podaj liczbe ');

readln(a);

suma:=suma+a;

i:=i+1;

until(i=10);

writeln('Suma podanych liczb wynosi ',suma);

readln;

end.

Możliwość komentowania została wyłączona

OVH
Do góry
stanczyk.ovh korzysta z plików cookie. Korzystając z serwisu zgadzasz się na ich przyjmowanie.