ПО ИНФОРМАТИКЕ Организуйте ввод целых чисел и подсчёт
количества введённых четных и нечетных чисел.
Ввод должен осуществляться до тех пор, пока не
будет введён ноль.
2) Дано натуральное число. Определить количество
цифр 3 в нём.

Для запуска сомандной строки:

Нажать Win+R, ввести CMD, нажать Enter.

Для получения информации о командах набрать HELP, нажать Enter

Неочевидное:

Перенаправление вывода командной строки. Значок > и >> перенаправляют вывод одной команды на вход другой. Например, так можно перенаправить вывод команды в файл:

C:\>help > cmdhelp.txt перенаправит вывод команды HELP в файл cmdhelp.txt . Если такого файла нет, он будет создан. Если есть, содержимое будет полностью заменено новыми данными. Если нужно дописать данные в существующий файл, использовать >> , например

C:\>help >> cmdhelp.txt То же самое, что и в предыдущем случае, но если файл существует, новые данные допишутся в его конец.

9. Как создать файл:

C:\>echo "test">test.txt

PS Скорее всего Windows не даст писать что либо в корень диска С:, так что для опытов лучше использовать, например, флэшку. Для изменения текущего диска в командной строке надо просто набрать букву этого диска и двоеточие. Например, флэшке виндой присвоена буква G, тогда после открытия окна командной строки надо набрать G: и нажать Enter. Приглашение ввода изменится на

G:\>

Enter вообще прикольная кнопка, жми ее почаще :)

1)

begin

 var (f, m) := readinteger2;

 var s := 4 * sqr(f) - sqrt(25) + 12 * m;

 write(s);

end.

2)

begin

 var (z, h, n) := readinteger3;

 var v := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25);

 write(v);

 writeln('Выполнил: ВАШЕ ФИО');

end.

Объяснение:

sqr(x) - возводит число х в квадрат;

sqrt(x) - вычисляет квадратный корень из числа x;

abs(x) - вычисляет модуль числа х.

1)

begin  // Начало программы

 var (f, m) := readinteger2;  // Считываем с клавиатуры значения f и m

 var s := 4 * sqr(f) - sqrt(25) + 12 * m;  // Вычисляем выражение

 write(s);  // Выводим ответ

end. // Конец программы

2)

begin  // Начало программы

 var (z, h, n) := readinteger3;  // Считываем с клавиатуры значения z, h и n.

 var v := (2 * sqr(z) - 13) / (5 * h - 10) + abs(n - 25);  // Вычисляем выражение

 write(v);  // Выводим ответ

 writeln('Выполнил: ВАШЕ ФИО'); // Здесь вводите свое ФИО

end. // Конец программы