Задачки паскаль .

[Vlai]

1)Создать матрицу 4 × 4: Найти сумму элементов, которые находятся выше основной диагонали; сумму элементов, которые находятся на боковой диагонали.
2)В трехзначном числе зачеркнули первую цифру слева; когда полученное двухзначное число умножили на 7, получили начальное трехзначное число. Найти его.
3)Сумма цифр трехзначного числа кратна 7. Само число также делится на 7. Найти все такие числа.

[Mad_Cat]

1)

s1:=0;
s2:=0;
For i:=1 to 4 do begin
for j:= i+1 to 4 do
s1:=s1+m[i,j];
s2:=s2+m[i,4-i+1];
end;

3)

for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i+j+k) mod 7 =0) and ((i*100+j*10+k) mod 7 = 0) then writeln(i*100+j*10+k);

2)

for i:=100 to 999 do
if (i mod 100)*7=i writeln(i);

[Vlai]

Слушай а можешь помочь вот таких надо еще 17 задач на Сесию решить?:) поможешь?

Сообщение от Mad_Cat

1)

s1:=0;
s2:=0;
For i:=1 to 4 do begin
for j:= i+1 to 4 do
s1:=s1+m[i,j];
s2:=s2+m[i,4-i+1];
end;

3)

for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i+j+k) mod 7 =0) and ((i*100+j*10+k) mod 7 = 0) then writeln(i*100+j*10+k);

2)

for i:=100 to 999 do
if (i mod 100)*7=i writeln(i);

17 задач подобного типа Сесия в понедельник((

[Hacker19_90]

от 50 задача (в зависимости от сложности)
стучите ася в профиле!