dzielnik przez 5.txt

(0 KB) Pobierz 
program dzielnik_przez;

uses Crt;

var n,suma  :integer;


	begin
	ClrScr;
	
	suma:=0;

	repeat
	writeln(' Podaj liczbe');
	readln(n);
	if ( n mod 5=0) then
	suma:=suma+n;
	until
	a=0;
	writeln('Suma liczb podzielnych przez 5 wynosi',suma);
	readln();
	end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin