М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
WaRRiOPRO
WaRRiOPRO
11.06.2020 04:52 •  Информатика

нарисовать что-то в нем
(Например квадрат )
С цифр

👇
Ответ:
даринкал
даринкал
11.06.2020

var n,i,j:integer;

begin

 writeln('введите длину стороны квадрата');

 readln(n);

 for i:=1 to n do write(1);

 writeln;

for i:=1 to n-2 do

begin

  write(1);

  for j:=1 to n-2 do

  write(' ');

  write(1);

  writeln;

end;

for i:=1 to n do write(1);

end.


нарисовать что-то в нем (Например квадрат ) С цифр
4,6(80 оценок)
Открыть все ответы
Ответ:
ЕхоBts97
ЕхоBts97
11.06.2020
1.Информация - это любые сведения об окружающем мире, которые мы получаем с различных органов.
2. Мы познаем его с той информации, которую получили за счет взаимодействия с природой и т.д.
3. Чувственное познание – это отражение действительности в чувственных образах. Также есть рациональное - но это познание мы получаем из суждений, рассказов и т.д.
4. Познание сущности вещей, явлений, процессов
5. Понятие - форма мышления, отражающая общие свойства мышлений.Формы рационального познания включают в себя понятие, суждение, умозаключение
4,7(55 оценок)
Ответ:
stecykuliamail
stecykuliamail
11.06.2020
uses crt; var i,j,max:byte; a: array [1..100] of integer; buf:integer; BEGIN repeat write(' input number of elements '); readln(max); until max in [1..100];     writeln('input your demention');   for i:=1 to max do  begin   write('input a[', i, '] = ');    readln(a[i]);   end;    buf:=0;    write('the first sort: ');   for i:=max downto 1 do  for j:=2 to i do   if a[j]<a[j-1] then    begin     buf:=a[j];     a[j]:=a[j-1];     a[j-1]:=buf;     end;   for i:=1 to max do write(a[i]);    writeln;  write('the second sort : ');   for i:=max downto 1 do write(a[i],'  '); END.
С форума программистов , сортировка повсюду
4,7(4 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ