//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3('Введите a,b,c->');
var N:=((a+b)**2)*((b+c)**2)*(-a-c)**2;
Writeln('N=',N);
end.
Как в школе учат ->
var a,b,c:integer; N:real;
begin
Writeln('Введите a,b,c->');
read(a,b,c);
N:=((a+b)**2)*((b+c)**2)*(-a-c)**2;
Writeln('N=',N);
end.
X=4
2002=2*4^(3)+2*4^(0)=130
1) uses<span> crt;
2) </span><span>var
3) </span>s1,s2:string;
4) i,k:integer;
5) begin
6) k:=0<span>;
7) </span>writeln('pervoe slovo?');
8) readln(s1);
9) writeln('vtoroe slovo?')<span>;
</span>10) readln(s2);
11) for i:=1 to length(s1) do <span>begin
</span>12) if (s1[i]=s2[i]) and (k=i-1) then
13) k:=k+1;
14) end;
15)writeln(k)<span>;</span>
16)End.
Алексеев - маляр;
Сидоров - пекарь;
Гришин = почтальон;
Петров - плотник;
Иванов - парикмахер.