Ячейка - минимальный объект табличного процессора
Ответ:
Большой, просторный, светлый дом.
Ребят хороших много в нём.
Красиво пишут и читают.
Рисуют дети и считают...(школа)
Загремел на небе гром,
Сотрясается весь дом
Я зажмурила глаза.
Что на улице...(Гроза)
Он в лесу ночами рыщет,
Пропитанье себе ищет.
Страшно слышать пасти щелк…
Кто в лесу зубастый...(Волк)
Program chik;
var c:array[1..1000,1..1000]of longint;
n,m,i,j,p:longint;
begin
read(n,m);
for i:=1 to n do
beginf
or j:=1 to m do
begin
read(c[i,j]);
end;
end;
for j:=1 to m do
begin
p:=c[3,j];
c[3,j]:=c[5,j];
c[5,j]:=p;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(c[i,j]:3,' ');
end;
writeln;
end;
end.<span>
</span>
Можно ли трогать компьютер без разрешения учителя?
Можно ли трогать розетку?
Можно ли кушать еду в кабинете информатике?
Program P1;
var z,x,y,p,e:integer;
begin
write('Количество этажей = '); readln(x);
write('Количество квартир на лестничной площадке = ');
readln(y);
write('Номер квартиры = '); readln(z);
p:=(z-1) div (x*y)+1;
e:=((z-(p-1)*x*y)-1) div y +1;
writeln('Квартира ',z,' находится в ',p,' подъезде на ',e,' этаже');
end.
Пример:
Количество этажей = 9
Количество квартир на лестничной площадке = 4
Номер квартиры = 67
Квартира 67 находится в 2 подъезде на 8 этаже