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

Объявите метку : 10 : запишите оператор безусловного перехода по этой метке : поставьте метку 10 на оператор : readln ( a , b , x ) .

👇
Ответ:
devil2a
devil2a
22.03.2021

label 10;


begin

  ...

  goto 10;

  ...

10: readln(a, b, x);

  ...

end.

4,6(54 оценок)
Открыть все ответы
Ответ:
Donyakotova
Donyakotova
22.03.2021
Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.
4,6(20 оценок)
Ответ:
aldjona
aldjona
22.03.2021
PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  for var a:=1 to 10 do begin
    Writeln('Длина стороны ',a,' см');
    for var b:=1 to 10 do
      Writeln('Вторая сторона ',b:2,', периметр ',2*(a+b):2,
          ', площадь ',a*b:3)
    end
end.

Результат
Длина стороны 1 см
Вторая сторона  1, периметр  4, площадь   1
Вторая сторона  2, периметр  6, площадь   2
Вторая сторона  3, периметр  8, площадь   3
Вторая сторона  4, периметр 10, площадь   4
Вторая сторона  5, периметр 12, площадь   5
Вторая сторона  6, периметр 14, площадь   6
Вторая сторона  7, периметр 16, площадь   7
Вторая сторона  8, периметр 18, площадь   8
Вторая сторона  9, периметр 20, площадь   9
Вторая сторона 10, периметр 22, площадь  10
Длина стороны 2 см
Вторая сторона  1, периметр  6, площадь   2
Вторая сторона  2, периметр  8, площадь   4
Вторая сторона  3, периметр 10, площадь   6
Вторая сторона  4, периметр 12, площадь   8
Вторая сторона  5, периметр 14, площадь  10
Вторая сторона  6, периметр 16, площадь  12
Вторая сторона  7, периметр 18, площадь  14
Вторая сторона  8, периметр 20, площадь  16
Вторая сторона  9, периметр 22, площадь  18
Вторая сторона 10, периметр 24, площадь  20
Длина стороны 3 см
Вторая сторона  1, периметр  8, площадь   3
Вторая сторона  2, периметр 10, площадь   6
Вторая сторона  3, периметр 12, площадь   9
Вторая сторона  4, периметр 14, площадь  12

Длина стороны 10 см
Вторая сторона  1, периметр 22, площадь  10
Вторая сторона  2, периметр 24, площадь  20
Вторая сторона  3, периметр 26, площадь  30
Вторая сторона  4, периметр 28, площадь  40
Вторая сторона  5, периметр 30, площадь  50
Вторая сторона  6, периметр 32, площадь  60
Вторая сторона  7, периметр 34, площадь  70
Вторая сторона  8, периметр 36, площадь  80
Вторая сторона  9, периметр 38, площадь  90
Вторая сторона 10, периметр 40, площадь 100
4,8(87 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ