Выберите из предложенного списка файлов только те, которые относятся к графическим (используются для хранения рисунков): my.doc, fam-ily.jpg, car.bmp, bell.mp3, dog.gif, song.wav, book.zip, war.avi.
256
348
Ответы на вопрос:
Const n=1000; var i, k, count: integer; a: array[1..n] of integer; begin writeln ('vvedite chisla'); for i: =1 to n do begin k: =k+1; readln(a[k]); if a[k]=0 then break end; for i: =1 to k-1 do if a[k] mod 3 =0 then count: =count+1; writeln('кол-во чисел, кратных трем: ', count); end.
Популярно: Информатика
-
Орррроо18.01.2020 19:52
-
ruqiyaaminova104.01.2022 22:46
-
POMIPO02.05.2021 05:00
-
vladgorbatov116.09.2022 15:35
-
sergeyyakimov0515.03.2020 16:08
-
artem75934221.01.2020 10:12
-
tima0204zhan03.05.2020 01:07
-
kottonkandy14.01.2020 16:26
-
vustiya6926.10.2020 15:45
-
Посемуська07.02.2021 23:06