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

Сделайте поэтапное решение (что переходит куда и как). От ❤️

👇
Ответ:
Polina28548
Polina28548
11.11.2020

ответ:Наверное, номер 3

Объяснение:

4,7(58 оценок)
Ответ:
RedGirl12
RedGirl12
11.11.2020

3) C:\Doc\Russia\Konkurs\kit.doc

Объяснение:

И так, в каком-то каталоге создали подкаталог. Подкаталог будет предпоследним в пути файла, в нашей ситуации папка Kit10. Из условия задачи следует, что эта папка создана в папке, в которой до этого был файл. До папки Kit10 идёт папка Konkurs.

4,8(11 оценок)
Открыть все ответы
Ответ:
Лизунчик011
Лизунчик011
11.11.2020
Const CSize1=7;
      CSize2=6;
      CSize3=5;
type TMas1=array[1..CSize1,1..CSize1] of integer;
     TMas2=array[1..Csize2, 1..CSize2] of integer;
     TMas3=array[1..Csize3, 1..CSize3] of integer;

var A1:TMas1;
    A2:TMas2;
    A3:TMas3;
    i,j,x, y:byte;

function zero(i:integer):boolean;
begin
zero:=false;
if i=0 then zero:=true;
end;

function interval(i:integer):boolean;
begin
interval:=false;
if (i<=12) and (i>=1) then interval:=true;
end;

begin
X:=0;
Y:=0;
randomize;
for i:=1 to CSize1 do
 begin
 for j:=1 to CSize1 do
  begin
  A1[i, j]:=random(50);
  write(A1[i, j]:3);
  if zero(A1[i, j]) then inc(x);
  if interval(A1[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize2 do
 begin
 for j:=1 to CSize2 do
  begin
  A2[i, j]:=random(50);
  write(A2[i,j]:3);
  if zero(A1[i,j]) then inc(x);
  if interval(A2[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize3 do
 begin
 for j:=1 to CSize3 do
  begin
  A3[i, j]:=random(50);
  write(A3[i,j]:3);
  if zero(A3[i,j]) then inc(x);
  if interval(A3[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
end.
4,7(27 оценок)
Ответ:
хех60
хех60
11.11.2020

var j, a, b, n: integer;

label 1;

begin

1: randomize;

  a: = random (9);

  b: = random (9);

  write (a, '*', b, '=');

  read (n);

  if n = (a * b) then writeln ('відповідь вірний! ')

            else writeln ('відповідь неправильний! ');

  writeln ('продовжуватимеш? ');

  writeln ('якщо так то натисни 1');

  writeln ('якщо немає то натисни 2');

  read (j);

  if j = 1 then goto 1;

  if j = 2 then writeln ('до побачення! ');

end.

начебто так, точно не пам'ятаю.

4,6(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ