М-да, исключительно для ради репутации форума, ибо подобную "помощь", которая говорит лишь о полном неумении студента справиться с задачками ясельного уровня, сугубо не одобряю.
Впрочем, вероятность того, что
Iirina появится здесь еще хоть раз, невелика. Ну да ладно.
Задание №2
Код:
Var
a,b,c,d:real;
Function Max2(z1,z2:real):real;
begin
if z1>z2 then Max2:=z1 else Max2:=z2;
end;
Begin
Write('a = ');
Readln(a);
Write('b = ');
Readln(b);
Write('c = ');
Readln(c);
Write('d = ');
Readln(d);
Writeln('Maximal number is ',Max2(Max2(Max2(a,b),c),d):0:3);
Readln
End.
________
Задание №6
Код:
Const
N=10;
Var
M:Array[1..N,1..N] of Word;
i,j:byte;
Begin
for i:=1 to N do
for j:=1 to N do
M[i,j]:=0;
for i:=1 to N do M[i,i]:=i*(i+1);
for i:=1 to N do
begin
for j:=1 to N do write(M[i,j]:4);
writeln;
end;
Readln
End.