tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
На паскале в файле input.txt
На паскале в файле input.txt записаны числа сколько их неизвестно. найти количество нечетных среди них
Vens12
1 22.06.2019 04:20
1
Ответы
Yuiyuii
02.10.2020 08:02
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
GameNooB
06.03.2021 13:25
8.Выясни, какие ошибки допущены в программе нахождения периметра прямоугольника. (2 ответа)procedure TForm1.Button1Click(Sender:tobject);var a,b,p integer;begina=StrTolnt(Edit1.text)...
MrCriMa
06.03.2021 13:27
ЗАДАНИЕ №4 ВРЕМЯ НА ВЫПОЛНЕНИЕ: 00:00 ТЕКСТ ЗАДАНИЯ Соотнеси картинки с видами роботов...
Mandarinka0001
06.03.2021 13:29
задания: Запиши верный ответ, если дан алгоритм:а1 := 9/(117)a2 := а1 /а3 := а2 /ха4 := a3 /хy:=a1+a4ответ (для переменной используй латинскую раскладку):...
аличка77
20.04.2021 23:29
Когда невозможно установить связь таблиц?...
КариM
20.04.2021 23:42
- У середовищі програмування Pycharm створіть проект Швидкий пошук Для знаходження у списку з 10 дійсних чисел елемента, що відповідає заданій умові. выручайте . Скиньте видео...
kozlovadasa52
12.09.2019 21:20
Как удержать результаты вывода на экране дисплея после срабатывания оператора write?...
duyquhuseynli
12.09.2019 20:03
Сообщение про наушники по информатике .кратко! ( не больше 6-7 предложенй ) !...
lizench
12.09.2019 21:20
Каким образом можно вывести результаты с новой строки?...
Маша923892
12.09.2019 21:20
Как вывести результаты работы программы на экран ?...
Анель1342
12.09.2019 08:19
Какое максимальное (минимальное) целое значение без знака (со знаком) можно записать в 12 битов?...
Популярные вопросы
Решить уравнение 3x × 8 2/17 = 1 11/23. заранее...
3
Запишите все двузначные числа,используя данные цифры.а)2,3 и 7 без повторения.б)2.3...
1
Назвать элемент 2 группы,относительная молекулярная масса гидроксида равна...
2
Что такое строфа мне надо ответить на вопросы...
3
Сдвух деревьев сорали 48 кг яблок.причем с одного дерева собрали в 2 раза...
2
Сдвумя словосочетаниями составить повествовательное и восклицательное...
1
Как может повлиять речь на будущую профессию...
3
1) выполните действие (3с-2d)^2 2) раскройте скобки (4a-5)(5+4в)...
1
Вкомнату влетели три мухи. сколько раз в течении часа они окажутся в одной...
3
Довжина сторін прямокутника 6 см і 4 см.якою є довжина сторін квадрата, що...
2
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.