Var
a, b,c,d,e:longint;
begin
readln(a);
b:=a biv 1000;
c:=a biv 100 mod 10;
d:=a biv 10 mod 10;
e:= a mod 10;
writeln(b+c+d+e);
writeln(b×c×d×e);
writeln(e,d,c,b);
end.
№1
var
a,b,v:real;
begin
readln(a,b);
v:=4/3*Pi*sqr(b/2)*(b/2);
a:=sqr(a)*a;
v:=a-v;
writeln(v:7:4);
end.
№2
var
s:string[6];
begin
readln(s);
if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))=
(strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then
writeln('Является') else
writeln('Не является');
end.
№3
var
a,b:integer;
begin
readln(a,b);
if (a<90) and (b<90) and (180-a-b<90) then
writeln('Остроугольный') else
if (a=90) or (b=90) or (180-a-b=90) then
writeln('Прямоугольный') else
writeln('Тупоугольный');
end.
1) 1 4 7
2) 1 число больше второго на 3
3) 1 число больше второго на 3 а второе число больше третьего на 2
4) ,5) 7 4 1 потому что надо делать всё на оборот пункту 2
6) Конец.Ты молодец !!!
И я молодец !!!
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>