Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

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

Ответ оставил Гость

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.