В файле input.txt записаны в солбик числа, сколько их - неизвестно. Определить и вывести...

Question

В файле input.txt записаны в солбик числа, сколько их - неизвестно. Определить и вывести в выходной фаил output.txt количество чисел, которые являются чётными, но не делятся на 10.

Answer 1

Var a,k:integer;
begin
 assign (input, 'input.txt'); reset (input);
 assign (output, 'output.txt'); rewrite (output);
 k:=0; while (not Eof(input)) do
 begin
  readln(input,a);
  if ((a mod 2=0) and (a mod 10<>0))
  then
   k:= k+1; 
 end;
 writeln(output,k);
end.

Comments

пару сек

---

у меня там ещё 2-ая задача , можешь её решить ?

---

валяй

---

В файле input.txt записаны в строку отдельные числа, сколько их - неизвестно. Вывести в выходной файл output.txt самое меньшее из них.

---

могу ссылку кинуть

---

чтобы баллы дало за решение

---

https://znanija.com/task/23446853

---

Вот