Помогите, пожалуйста, решить задачи в паскале :
1.Определите сколько нечетных чисел среди четырех заданных чисел
2.Вычислите, является ли четырехзначное число счастливым

1

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

2014-04-09T23:01:11+04:00
1)
var a,i,q:integer;
begin
for i:=1 to 4 do begin
read(a);
if a mod 2 <> 0 then inc(q);
end;
writeln(q);
end.

2) Что за счастливое число? Может пояснили бы?