Var t:integer;
b,a:real;
begin
write('Вклад равен ');
read(a);
b:=1.05;
while a<1000000 do
begin
a:=a*b;
t:=t+1;
end;
write('Под процентами пролежавши ',t,' лет вклад накопил ',a:12:4,' рублей');
end.<span>
</span>
Писать код не буду опишу
1) ввести в программу текст
2) найти количество символов в тексте
3)организовать цикл for от 1 до кол-ва символов в тексте
4) устроит в цикле проверку на гласные
если подходит прибавить к счетчику+1
Если правильно понял задание то как то так:
а)ваня решает у доски задачу -> Обработка информации
б)оля слушает по радио новости -> Передача информации
в)дима учит правило -> Хранение информации
г)саша и вова разговаривают по телефону -> Передача информации
д)женя отправляет sms-сообщение -> Передача информации
е)лена рисует план квартиры -> Обработка информации