Исходя из условия, у Ани сноу-шу Бама, у Саши саванна Бима, у Дины тойгер Бума.
Const n=550;
var k10,k50:integer;
begin
writeln(' 10 50');
writeln('----------');
for k10:=0 to n div 10 do
begin
k50:=(n-10*k10) div 50;
if 10*k10+50*k50 = n then writeln(k10:4,k50:5);
end;
end.
Результат:
10 50
----------
0 11
5 10
10 9
15 8
20 7
25 6
30 5
35 4
40 3
45 2
50 1
55 0
Программа без шапки
Read(a);
Read(b);
C:=a*b;
If c<0 then
Begin
c:=c*2;
Writeln(c);
End;
Else
C:=c*1.5;
Writeln(c);
End.
------------
Реестр символов не учитывать
Это же легко, что будет если вы спишите и пойдете в школу? вы должны сами понять!
Var mas:array[1..100,1..100] of integer;
N,M,D,N2,i,C,j,M2,k:integer;
begin
N:=0;D:=0;k:=0;
write('Введите N = ');Readln(N);
write('Введите M = ');Readln(M);
For i:= 1 to M do begin
M2:=1;
For N2:=i downto 1 do begin
if M2<=N then begin
mas[M2,N2]:=k;
k:=k+1;
M2:=M2+1;
end;
end;
end;
//после побочной диагонали
For D:=2 to N do begin
M2:=D;
For N2:=M downto 1 do begin
IF (M2<=N) and (N2<=M) then begin
mas[M2,N2]:=k;
k:=k+1;
M2:=M2+1;
end;
end;
end;
For i:=1 to N do begin Writeln();
for j:=1 to M do
write(mas[i,j],' ');
end;
end.