1. Вводить с клавиатуры числа до тех пор пока не будет выведено число 100 найти количество четный чисел 2. Ввести с клавиатуры натуральное число. Изменить его левую цифру на "9"

Задача 1.

var

number, count_of_even_numbers: integer;

begin

writeln ('Вводите целые числа. Чтобы завершить программу, введите число 100.');

repeat

readln (number); / /программа читает введенное число

if number mod 2 = 0 then / /проверка на четность. Если число четное,

count_of_even_numbers : = count_of_even_numbers + 1; / /увеличивает счетчик четных чисел на 1

until number = 100;

writeln ('Было введено четных чисел: ', count_of_even_numbers, '.'); / / вывод количества четных чисел

end.

Задача 2.

var

number, count_of_even_numbers: integer;

str_num:string;

begin

writeln ('Введите натуральное число.');

readln (number); / /программа читает введенное число

str (number, str_num); / / переводит число в строчную

str_num:='9'+copy (str_num, 2, length (str_num) - 1); / / меняет первую цифру на 9

writeln (str_num); / /выводит число

end.