1. вводить с клавиатуры числа до тех пор пока не - вопрос №4672261100 от mereikа 25.04.2023 08:28

Question

Информатика: 1. вводить с клавиатуры числа до тех пор пока не будет выведено число 100 найти количество четный чисел 2. ввести с клавиатуры натуральное число . изменить его левую цифру на 9

mereikа · Answer

var i,s:integer;beginwhile i 100 do beginreadln(i);if i mod 2=0 then inc(s);end;inc(s);writeln(s);end.   var a:string;beginreadln(a);a[1]:= 9 ;writeln(a);end....