program raf105;
var s,s1:string;
begin
s:= 'информатика';
s1:= s1 + copy(s,3,5);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,1) + copy(s,9,1) + copy(s,2,1) + copy(s,4,1);
writeln(s1);
s1:= '';
s1:= s1 + copy(s,10,2) + copy(s,5,1) + copy(s,8,2) + copy(s,2,1) + copy(s,7,1);
writeln(s1);
s1:= '';
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Чтобы программировать и создавать программы
1)Явления природы
2)Транспортные средства
3)Предметы мебели
4)Детские предметы
5)Живые организмы
6)Домашние животные
7)Единицы измерения
8)Обувь
9)Существительные женского рода
10)Изменяются
11)Члены предложения
12)Члены предложения
13)Геометрические фигуры
14)Вывод информации
15)
var<span>a,b,c</span>:integer;
begin<span>read(a,b,c); if (a > b) and (a > c) then</span><span> write(a) elseif (b > a) and (b > c) then</span><span> write(b) else write(c);</span>end.
Ответ, ответ, ответ, ответ
7 бит