Автор - yukkayulla

СРОЧНО!! ПОМОГИТЕ, ПОЖАЛУЙСТА! ИНФОРМАТИКА! ДАЮ МНОГО БАЛЛОВ!!!

Среди N целых чисел определить кол-во четных и некратных трем.

ЯЗЫК: C++

ЗАРАНЕЕ ГОРОМНОЕ СПАСИБО!!!​

Ответ

Автор - edusk

BEGIN

writeln('Введите а');

writeln('Введите а');readln(a);

writeln('Введите а');readln(a);i := 0;

writeln('Введите а');readln(a);i := 0;k := 1;

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) do

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobegin

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);end;

writeln('Введите а');readln(a);i := 0;k := 1;while (a<>0) and (k < 1000) dobeginif (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;k := k + 1;readln(a);end;writeln(i, '- количество четных чисел, кратных трём.');

END.

Ответы и объяснения

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.
© 2025 Все права защищены Политика конфиденциальности Контакты
search points attachment profile arrow left arrow right star heart verified symbols equation arrow-down question mark check menu accountancyadministrationagriculturalalgebraallarabicartart_musicbelarusbelarus_altbiologybusinesscatalachemistrychineseeconomicsegzamenglishentrepreneurshipenvironmentethicseuskarafirst_aidfrenchgalegogeographygeologygeometrygermangrammarhealthhistoryindia_langindonesian_langinformaticsitalianjapanesekazachkazach_altkoreanlanguagelatinlawlife_scienceliteraturelogicmathematicsmusicnigerian_langother_languagesotherspedagogicsphilosophyphysical_educationphysicspoliticspsychologyreligionrpa_langrussianrussian_altsciencesecurityskillssocial_sciencesociologyspanishstatisticstechnologytourismtrafficukrainianukrainian_altukrainian_literaturewos_civilisation accountancyadministrationagriculturalalgebraall_1arabicartart_music_2belarusbelarus_altbiologybusiness_2catalachemistry_1chineseeconomicsexam_3englishentrepreneurshipenvironment_2ethicseuskarasecurity_1frenchgalegogeography_4geology_4geometrygermangrammarhealthhistoryindia-langindonesian-langinformaticsitalianjapanesekazachAsset 230koreanlanguagelatinlawlife-scienceliteraturelogic_2mathematicsmusicnigerian-langotherlanguagesother_1pedagogicsphilosophyphysical_educationphysicspoliticspsychologyreligion_1rpa-langrussianrussian_altsciencesecurity_3_mskills_1allsocial_science_5_msociologyspanishstatisticstechnologytourismtrafficukrainianukrainian_altukrainian_literaturewos_civilisation