Регистрация
kamiramasirovEasyran
11.08.2021 00:56
Информатика
Есть ответ 👍

Написать программу в паскаль "тип данных файл" дан файл f, компоненты которого являются действительными числами. найти из значений компонент: 1) наименьшее из значений компонент с чётными номерами; 2) наибольшее из значений компонент с нечётными номерами;

292
301
Посмотреть ответы 2

Ответы на вопрос:

zholdashev
zholdashev
4,4(99 оценок)
Программа для решения - в прилагаемом файле. считается, что нумерация компонент файла начинается с 1.
rhejjsxn
rhejjsxn
4,6(97 оценок)
Var n, digit, ans : integer; begin     read(n);     ans : = 0;     while (n > 0) do begin         digit : = n mod 10;         if ((digit = 1) or (digit = 3) or (digit = 9)) then             ans : = ans + 1;         n : = n div 10;     end;     writeln(ans); end.

Популярно: Информатика