Боря приехал из: Омска
Гриша приехал из: Санкт-Петербурга
Егор приехал из : Кирова
Var a : integer;
begin
repeat
a:=a+100;
writeln(a*0.3, ' руб за ', a, ' гр')
until a = 1000
end.
не(первая буква согласная → Третья буква имени глассная)
Значит первая буква гласная → Третья буква имени соглассная
Например Андрей или Анна
Uses Crt;
var
n,d1,d10,d100:integer;
begin
ClrScr;
Write('n='); Read(n);
d1:=n mod 10; d100:=n div 100; d10:=(n div 10) mod 10;
if d1=9 then d1:=0 else Inc(d1);
if d10=9 then d10:=0 else Inc(d10);
if d100=9 then d100:=0 else Inc(d100);
Writeln(d100,d10,d1);
ReadKey
end.