Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
s : = 1 ;
for i : = 1 to n do
if a[i] mod 3 = 0 then
s : = s * a[i];
writeln(s);
ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед
var i: integer;
s: string;
begin
s: ="abcdefghijklmnopqrstuvwxyz";
for i: = 1 to length(s) do
writeln(s[i],' = ', ord(s[i]));
end.
Популярные вопросы