1. вводить с клавиатуры числа до тех пор пока не будет выведено число 100 найти количество четный чисел 2. ввести с клавиатуры натуральное число . изменить его левую цифру на "9"
Aleksa4nick
3
28.03.2019 13:20
13
Другие вопросы по теме Информатика
ososkovaluba
29.03.2019 08:50
yulechkapopova4
16.12.2020 16:32
скрытник
19.03.2019 19:24
kmvkemerovo
19.03.2019 19:25
switt1q
18.12.2020 14:45
sashawinner13
18.12.2020 14:44
medovd
09.03.2021 14:23
DaryaGoldman1812
09.03.2021 14:23
Leola1
09.03.2021 14:24
Популярные вопросы
- Найти наибольшее и наименьшее значение функции на отрезкеy f(x)= 3+6*x-x^2...
3 - Решить систему уравнений x-5y=3 x²-2xy-y²=-1...
1 - Сказка как жители волшебной страны электронии научились пользоваться электроприборами...
2 - Через точку д середину гипотенузы ав прчмоеутного трткутника авс проведены...
2 - Таблица: 1.парнокопытные 2.непарнокопытные 1)представители 2)особенность строения...
1 - Спишите расставляя знаки препинания. составьте схемы предложений1) стол, кресла,...
2 - Мне нужно написать реформы александра 2 крестьянская военная судебная земская...
1 - По первой накладной со склада было выдано 0,7 имевшегося кирпича,а во второй...
1 - Напишите сочинение по произведению а. с. пушкина капитанская дочка ! заранее...
3 - Какое лицо и спряжение у глагола знай...
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.