ТутРешу.Ру

1. Вводить с клавиатуры числа до тех пор пока не будет выведено число…

Задание:

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.




Знаете другой ответ?

Отправить свой ответ