Заменяет в строке
var
s : string;
i, lim : integer;
begin
readln (s);
i := 1;
lim := length (s);
while (i <= lim) do
begin
if s[i] in ['1'..'9'] then
begin
if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then
begin
write ('ten');
inc (i);
end
else
case s[i] of
'1' : write ('one');
'2' : write ('two');
'3' : write ('three');
'4' : write ('four');
'5' : write ('five');
'6' : write ('six');
'7' : write ('seven');
'8' : write ('eight');
'9' : write ('nine');
end;
end
else write (s[i]);
inc (i);
end;
end.<span>
</span>
Program znanija_com;
uses crt;
var
a,cch,dch,sq,o,c:real;
begin
writeln('Введите число А: ');
read(a);
cch:=Int(a);
dch:=frac(a);
sq:=sqr(a);
o:=frac(a/5);
writeln(cch,' ',dch,' ', sq,' ',o);
end.
последнее даже не понял что там нужно. так что держи без последнего
1. Сначала берём хлеб.
2. Потом нож.
3. Далее масло.
4. А потом намазываем на хлеб ножом масло!
Сознание - это форма отражения человеком окружающей действительности. Мир, окружающий нас материален, и мы являемся продуктом материи.
Скинь рисунок, тогда решу, а без рисунка смысла нет