Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
ткань,глина,дерево,стекло,бумага,мктал,пласмасса,резина,лед
var
b1,b2,i,n,p: integer;
begin
write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);
p: =-1;
for i: =2 to n do
p: =p*(-1);
b2: =p*b1-8;
writeln (i,' элемент = ', b2);
b1: =b2;
end;
end.
строку наоборот?
var s: string;
i: integer;
read(s);
for i: = length(s) downto 1 do
s1: = s1+s[i];
writeln(s1);
var x,y,a,b: real; begin read(a,b); read(x,y); if y=a*x+b then writeln('точка принадлежит прямой') else writeln('точка не принадлежит прямой'); end.
Популярные вопросы