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

Question

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

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

Answer 1

var i,s:integer;
begin
while i<>100 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.