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

Question

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

Answer 1

42

manowar8

28 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: