Pievienot darbus Atzīmētie0
Darbs ir veiksmīgi atzīmēts!

Atzīmētie darbi

Skatītie0

Skatītie darbi

Grozs0
Darbs ir sekmīgi pievienots grozam!

Grozs

Reģistrēties

interneta bibliotēka
Atlants.lv bibliotēka
1,99 € Ielikt grozā
Gribi lētāk?
Identifikators:295827
 
Vērtējums:
Publicēts: 01.02.2012.
Valoda: Latviešu
Līmenis: Augstskolas
Literatūras saraksts: Nav
Atsauces: Nav
Darba fragmentsAizvērt

To skaitļu skaitu, kuru pēdējais cipars ir 5;
Program work;
Var
A: array [1..20] of Integer;
c,i,n: Integer;
Begin
Writeln ('Ievadiet masīva A ietilpstošo skaitļu skaitu:');
Readln (n);
Writeln ('Ievadiet masīvu A:');
For i:=1 to n do Readln (a[i]);
For i:=1 to n do Begin

if (a[i] mod 5= 0) and (a[i] mod 10 <> 0) then c:=c+1;
end;
Writeln('Tādu skaitļu skaits ir ',c);
Readln;
End.

Autora komentārsAtvērt
Parādīt vairāk līdzīgos ...

Atlants

Izvēlies autorizēšanās veidu

E-pasts + parole

E-pasts + parole

Norādīta nepareiza e-pasta adrese vai parole!
Ienākt

Aizmirsi paroli?

Draugiem.pase
Facebook

Neesi reģistrējies?

Reģistrējies un saņem bez maksas!

Lai saņemtu bezmaksas darbus no Atlants.lv, ir nepieciešams reģistrēties. Tas ir vienkārši un aizņems vien dažas sekundes.

Ja Tu jau esi reģistrējies, vari vienkārši un varēsi saņemt bezmaksas darbus.

Atcelt Reģistrēties