Yet another pętla ¶ Zeszyt ucznia

Zadanie 1. Dla wprowadzonej liczby n wypisz jej dzielniki i ich ilość.

program zadanie;
var n, i, ilosc: integer;
begin
        ilosc:=0;
        Readln(n);
        Write('Dzielniki: ');
        for i:=1 to n do
        begin
                if n mod i = 0  then begin
                        Write(i);
                        if i<>n then Write(', ') else WRITE('.');
                        ilosc:=ilosc+1;
                end;
        end;
        Writeln;
        Writeln('Ilość dzielników: ', ilosc);
        Readln;
end.

program zadanie;

var n, i, ilosc: integer;

begin

ilosc:=0;

Readln(n);

Write('Dzielniki: ');

for i:=1 to n do

begin

if n mod i = 0 then begin

Write(i);

if i<>n then Write(', ') else WRITE('.');

ilosc:=ilosc+1;

end;

Writeln;

Writeln('Ilość dzielników: ', ilosc);

Readln;

end.

Zeszyt ucznia

Notatki z przedmiotów zawodowych technika informatyka

Yet another pętla

Dodaj komentarz Anuluj pisanie odpowiedzi