Хм,дорожный знак
Самое подходящее "символ"
Из перечисленных
//Pascal ABC.NET 3.1 сборка 1256
Var
b,a,m,ar:real;
i:integer;
begin
readln(b,m,a);
i:=0;
ar:=a*m;
while ar>a do
begin
inc(i);
a:=a*(b/100+1);
end;
writeln(i);
end.
Пример ввода:
33
2
100
Пример вывода:
3
нос - обонятельная информация, уши - звуковая информация, язык - вкусовая информация, кожа - осязательная или тактильная информация, глаза - зрительная информация
Var
name, surname, patronymic : string;
begin
write('Введите фамилию: '); readln(surname);
write('Введите имя: '); readln(name);
write('Введите отчество: '); readln(patronymic);
writeln('Имя: ', name);
end.