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

2. Ввести с клавиатуры натуральное число. Изменить его левую цифру на "9"

Question

Информатика

Ольда

7 декабря, 04:07

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

2. Ввести с клавиатуры натуральное число. Изменить его левую цифру на "9"

+3

Ответы (1)

Знаете ответ на вопрос?

Довмонт · Answer 1

var i, s:integer;

begin

while i100 do begin

readln (i) ;

if i mod 2=0 then inc (s) ;

end;

inc (s) ;

writeln (s) ;

end.

var a:string;

begin

readln (a) ;

a[1]:='9';

writeln (a) ;

end.