Предмет: Информатика,
автор: bang123
ЗАДАЧА НА ПАСКАЛЕ
в файле input.txt записаны числа сколько их неизвестно. Найти количество нечетных среди них
Ответы
Автор ответа:
0
var a,i:longint;
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
while not eof do
begin
read(a);
if a mod 2<>0 then inc(i);
end;
write(i);
close(input);close(output);
end.
begin
assign(input,'input.txt');reset(input);
assign(output,'output.txt');rewrite(output);
while not eof do
begin
read(a);
if a mod 2<>0 then inc(i);
end;
write(i);
close(input);close(output);
end.
Автор ответа:
0
ща изменю
Автор ответа:
0
пойдет?
Автор ответа:
0
да, спасибо
Автор ответа:
0
если не рабит скажите проверю. прост писал без проверки
Автор ответа:
0
можешь сразу проверить? у меня нет паскаля
Интересные вопросы
Предмет: Алгебра,
автор: Аноним
Предмет: Кыргыз тили,
автор: sadyrbekovazanylaj
Предмет: Математика,
автор: dzoltaevaz
Предмет: Литература,
автор: alex2112200