...
Turbo Pascal
Страница: 1
Сообщений 1 страница 3 из 3
Поделиться12010-02-27 17:05:34
- Администратор
- Откуда: г.Сосенский
- Зарегистрирован: 2010-01-27
- Приглашений: 0
- Сообщений: 1383
- Уважение: [+1/-0]
- Позитив: [+3/-0]
- Пол: Мужской
- Возраст: 30 [1993-06-01]
- Провел на форуме:
8 дней 3 часа - Последний визит:
2023-10-19 09:34:00
Поделиться22010-04-08 12:02:26
- Администратор
- Откуда: г.Сосенский
- Зарегистрирован: 2010-01-27
- Приглашений: 0
- Сообщений: 1383
- Уважение: [+1/-0]
- Позитив: [+3/-0]
- Пол: Мужской
- Возраст: 30 [1993-06-01]
- Провел на форуме:
8 дней 3 часа - Последний визит:
2023-10-19 09:34:00
10 "А" я сюда выложу домашку по паскалю! так что не проспите!
Поделиться32010-04-09 20:33:06
нумер 1
const n=5;
var a:array [1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
if i+j=6 then a[i,j]:=i;
end;
for i:=1 to n do begin
for j:=1 to n do
write (a[i,j]); writeln; end;
readln;
end.
нумер 2
const n=4;
var a:array [1..n,1..n] of integer;
i,j:integer; begin
for i:=1 to n do
for j:=1 to n do
begin
if i=j then a[i,j]:=1;
if j-i=1 then a[i,j]:=2;
if j-i=2 then a[i,j]:=3;
if j-i=3 then a[i,j]:=4;
end;
for i:=1 to n do begin
for j:=1 to n do
write (a[i,j]);
writeln;
end;
readln;
end.
Страница: 1