//Pascal ABC.NET 3.1 сборка 1219
Var
s:string;
n:integer;
begin
readln(s);
readln(n);
var ars:=s.Split;
foreach var i in ars do
if length(i)=n then writeln(i);
end.
<span>Пример ввода:
</span>Ехал грека через реку видит грека в реке рак
5
Пример вывода:
грека
через
видит
грека
120*120*log8=120*120*3=43200bit=5400bite=5.2734375kb
//короткая история о том, как я забыл sqr() в С++
<span>bool f(int x, int y, int z){
if(pow(double(x),2)+pow(double(y),2)==pow(double(z),2)){
return true;
}
else
{
return false;
}
<span> }</span></span>
Алг Возраст
нач
цел возраст, единицы лет
лит текст
вывод "Укажите полное число лет: "
ввод возраст
единицы лет:=mod(возраст,10)
выбор
при возраст>=5 и возраст<=20:текст:="лет"
при единицы лет=1:текст:="год"
при единицы лет>=2 и единицы лет<=4:текст:="годa"
иначе текст:="лет"
все
вывод "Мне "+цел_в_лит(возраст)+" "+текст
кон
Var
a,i,n:integer
begin
Readln(a);
for i:=a to 1 do
n:=n+I;
writeln(n);
end.