СРОЧНО!! ПОМОГИТЕ, ПОЖАЛУЙСТА! ИНФОРМАТИКА! ДАЮ МНОГО БАЛЛОВ!!!
Среди N целых чисел определить кол-во четных и некратных трем.
ЯЗЫК: C++
ЗАРАНЕЕ ГОРОМНОЕ СПАСИБО!!!
Среди N целых чисел определить кол-во четных и некратных трем.
ЯЗЫК: C++
ЗАРАНЕЕ ГОРОМНОЕ СПАСИБО!!!
More Questions From This User See All
Answers & Comments
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.