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

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

Question

Информатика

Марюша

16 ноября, 02:00

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

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

+4

Ответы (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.