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

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

Question

Информатика

Каллистрат

22 января, 10:36

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

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

+1

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