Предмет: Информатика,
автор: MisterLeo7
Выведите на экран следующую таблицу (в Pascal):
1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
MrMiner1:
с использованием матрицы / одномерного массива?
нет
В ответ писать не буду не уверен
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Var
a:array[1..100,1..100] of integer;
n,m,i,j:byte;
f1,f2:text;
Begin
Assign(f1,'input.txt');
Assign(f2,'output.txt');
Reset(f1);
Readln(f1,n,m);
for i:=1 to n do
begin
for j:=1 to m do
Read(f1,a[i,j]);
Readln(f1);
end;
Close(f1);
Rewrite(f2);
for i:=1 to n do
begin
for j:=1 to m do
Write(f2,a[i,j],' ');
Writeln(f2);
end;
Close(f2);
End.
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Var
a:array[1..100,1..100] of integer;
n,m,i,j:byte;
f1,f2:text;
Begin
Assign(f1,'input.txt');
Assign(f2,'output.txt');
Reset(f1);
Readln(f1,n,m);
for i:=1 to n do
begin
for j:=1 to m do
Read(f1,a[i,j]);
Readln(f1);
end;
Close(f1);
Rewrite(f2);
for i:=1 to n do
begin
for j:=1 to m do
Write(f2,a[i,j],' ');
Writeln(f2);
end;
Close(f2);
End.
Ответы
Автор ответа:
2
Program n_1;
var a, i:integer;
begin
for i:=1 to 5 do write(i, ' ');
writeln;
for i:=2 to 6 do if (i>5) then write(i-5, ' ') else write(i, ' ');
writeln;
for i:=3 to 7 do if (i>5) then write(i-5, ' ') else write(i, ' ');
end.
кросс\
Похожие вопросы
Предмет: Математика,
автор: ritssss
Предмет: Физика,
автор: morning2021
Предмет: Литература,
автор: Milahadem
Предмет: Литература,
автор: Dgahjs
Предмет: Математика,
автор: Аноним