Необходимо составить программу для решения последующей задачки: Вводятся 234 числа. Определить,

Нужно составить программку для решения последующей задачки: Вводятся 234 числа. Найти, сколько среди их четных чисел.

Задать свой вопрос
1 ответ
Var a,s :integer;
begin
  a:=0;
  s:=0;
  repeat
   a:=a+1;
   if a mod 2 = 0 then
   s:=s+1;
  until
  a=234;
  writeln('кол-во четных чисел : ',s)
end.

Руслан Тулбури
либо так : var a,s,n :integer;begin n:=234; s:=0; for a:=1 to n do if a mod 2 = 0 then s:=s+1; writeln('кол-во четных чисел : ',s)end.
Маша Аксюта
или так : var a,s :integer;begin s:=0; while a<=234 do begin a:=a+1 if a mod 2 = 0 then s:=s+1; end; writeln('кол-во четных чисел : ',s)end.
Валентина Игнатская
Остапа понесло :).
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт