Скушать пирожков,
испеченные печкой,
скушать яблочка от яблоньки,
попробовать киселька у молочной речки,
кисельных берегов.
Const n=10;
var a:array[1..n,1..n] of integer;
b:array[1..n] of integer;
s,i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do begin
read(a[i,j]);
if i=j then b[i]:=a[i,j];
end;
for i:=1 to n do
write(b[i],' ');
<span>end.</span>
Var
a:integer;
begin
read(a);
writeln(a div 10,' ',a mod 10);
end<span>.</span>
Program FORSLENDER;
uses crt;
var l,a: integer;
begin clrscr;
write('l = ');
readln(l);
a:=(l div 100 );
writeln('Otvet = ', a);
readln;
end.
Посмотреть расширения через информацию о файле