programowanie Gula: Programowanie. Napisz program obliczający ilość liczb podzielnych przez 7 z 20 podanych. Trzeba użyć pętli for. Pomoże ktoś?

AS: W jakim języku?

Draghan: Dane: liczby[20] licznik = 0 Algorytm: wczytaj(liczby[20]) dla każdego elementu z liczby[20]: { jeżeli [element z: liczby[20] mod 7 == 0] { zwiększ licznik o 1 } } I kuniec. Zmieniasz sobie fragmenty "pseudokodu" na swój potrzebny język i śmiga.

Bartek22: Jak to ma wyglądać w Pascalu ?

Draghan: Hmmm... Za Chiny nie pamiętam, jak tam się robiło tablice. Tak więc nie będę wczytywał liczb do tablicy, tylko pojedynczo, w pętli. I od razu sprawdzał, czy wczytana liczba jest podzielna przez 7. Mamomoja, jak ja dawno nie pisałem w Pascalu. Taki niewygodny... var liczba, licznik, i: Integer; begin licznik := 0; for i := 1 to 20 do begin readln(liczba); if(liczba mod 7 = 0) then licznik := licznik + 1; end; writeln(licznik); end.