1.Среди цифр четырехзначного числа есть четная. Накидал тут решение, но где-то ошибка, не могу понять где vart,s,d,e,i: integer;beginfor i:= 1000 to 9999 dot:=i div 1000;s:=(i div 100)mod 10 ;d:=(i div 10) mod 10;e:=i mod...
1.Среди цифр четырехзначного числа есть четная. Накидал тут решение, но где-то ошибка, не могу понять где var
t,s,d,e,i: integer;
begin
for i:= 1000 to 9999 do
t:=i div 1000;
s:=(i div 100)mod 10 ;
d:=(i div 10) mod 10;
e:=i mod 10;
if ((t mod 2=0) or (s mod 2 =0) or (d mod 2 =0) or (e mod 2=0)) then writeln ('TRUE') else writeln ('FALSE');
end.
Гость
Ответ(ы) на вопрос:
ГостьНу если задание что-то вроде "Есть ли среди 4х значного числа четные числа "
то все гораздо проще да и непонятно зачем ты сделал цикл по всем 4х значными , но опять же задание не ясно!
Не нашли ответ?
Похожие вопросы