Нужно составить программу для решения следующей задачи: Вводятся 234 числа. Определить, сколько среди них четных чисел.
Ответы
Ответ дал:
0
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.
begin
a:=0;
s:=0;
repeat
a:=a+1;
if a mod 2 = 0 then
s:=s+1;
until
a=234;
writeln('кол-во четных чисел : ',s)
end.
Ответ дал:
0
или так : 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.
begin
s:=0;
while a<=234 do
begin
a:=a+1
if a mod 2 = 0 then
s:=s+1;
end;
writeln('кол-во четных чисел : ',s)
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад