Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше дать, все таки это самое сложное из заданий Т-Т...
Label m;
Var
a integer, b integer;
Begin
M:
a:=0;
b:=0;
Readln(a);
b:=a-1;
Writeln(b);
Goto m;
End.
Сначала мы даем название программе, после добавляем метку, затем добавляем переменные и указываем их тип.
Пишем begin - начало программы и присваиваем мете m значение. После указываем переменным a и b значение 0. После открывается поле ввода куда вводим число, затем присваиваем переменной b значение a-1, затем выводим ее в консоль и переходим к метке m обратно наверх. Таким образом получилась бесконечная программа. В конце - end. Завершение программы.