Задание:
1. Вводить с клавиатуры числа до тех пор пока не будет выведено число 100 найти количество четный чисел 2. Ввести с клавиатуры натуральное число. Изменить его левую цифру на "9"
Решение:
var i,s: integer; beginwhile i<>100 do beginreadln (i); if i mod 2=0 then inc (s); end; inc (s); writeln (s); end. var a: string; beginreadln (a); a[1]: ='9'; writeln (a); end.
Знаете другой ответ?