1. Вводить с клавиатуры числа до тех пор пока не будет выведено число 100 найти количество четный чисел 2. Ввести с клавиатуры натуральное число . Изменить его левую цифру на "9"
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.
Не нашли ответ?
Похожие вопросы