logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Torior
Torior
03.03.2023 15:50 •  Информатика

Написать программу частного от деления 2-х чисел по информатике !

👇
Увидеть ответ
Ответ:
itkrg
itkrg
03.03.2023
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  ч1, ч2: ЦЕЛ;

УКАЗ
  Вывод.Цепь("Введите делимое: ");
  ч1 := Приём.Число();
  Вывод.Цепь("^Введите делитель: ");
  ч2 := Приём.Число();
  Вывод.ЧВещ("^%d / %d = %g.", ч1, ч2, ч1 / ч2, 0)

КОН Задание.
4,4(79 оценок)
Открыть все ответы
Ответ:
yananesteshl
yananesteshl
03.03.2023
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.

----------------------------

PROGRAM A20;

CONST
    max = 100;
TYPE
    matrix = array[1..max,1..max]of shortint;
VAR
    ar:matrix;
    num:byte;
    i,j:byte;
    a,b,c:byte;
    q:boolean;

BEGIN
  repeat
  //  num := 5;
    write('Введите размер матрицы n=');
    readln(num);
   
    for i:=1 to num do begin
      for j:=1 to num do
        read(ar[i,j]);
    end;
 
    i:=1;//диагональ
    q:=true;
   
    while q and (i<num) do begin
      j:= i+1;//колонка и ряд
      while q and (j<=num) do begin
        a := ar[j,i];
        b := ar[i, j];
       
        if (ar[j,i] <> ar[i, j])
          then q:=false;
        j:=j+1;
      end;
      i:=i+1;
    end;
   
    if q then
      writeln('YES')
    else
      writeln('NO');
   
    write('Введите 1 чтобы продолжить. 0 чтобы завершить');
    readln(i)
  until(i=0); 
END.

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г
4,6(50 оценок)
Ответ:
илья33567б0
илья33567б0
03.03.2023
Результат работы и листинг программы в приложениях.
Написано в PascalABC.NET но должно работать во всех Паскалях.

----------------------------

PROGRAM A20;

CONST
    max = 100;
TYPE
    matrix = array[1..max,1..max]of shortint;
VAR
    ar:matrix;
    num:byte;
    i,j:byte;
    a,b,c:byte;
    q:boolean;

BEGIN
  repeat
  //  num := 5;
    write('Введите размер матрицы n=');
    readln(num);
   
    for i:=1 to num do begin
      for j:=1 to num do
        read(ar[i,j]);
    end;
 
    i:=1;//диагональ
    q:=true;
   
    while q and (i<num) do begin
      j:= i+1;//колонка и ряд
      while q and (j<=num) do begin
        a := ar[j,i];
        b := ar[i, j];
       
        if (ar[j,i] <> ar[i, j])
          then q:=false;
        j:=j+1;
      end;
      i:=i+1;
    end;
   
    if q then
      writeln('YES')
    else
      writeln('NO');
   
    write('Введите 1 чтобы продолжить. 0 чтобы завершить');
    readln(i)
  until(i=0); 
END.

Решать через pascalabc.net ( вам проверьте, является ли двумерный массив симметричным относительно г
4,5(80 оценок)
Это интересно:
О
Заставьте свой мозг работать на 100%: как повысить продуктивность обучения...
Т
Транспорт
08.01.2020
Как рассчитать первоначальный взнос за автомобиль...
Д
Дом-и-сад
23.11.2020
Как навести порядок в гараже: полезные советы от специалистов...
К
Как готовить только для себя: полезные советы и рецепты...
К
Сладкий рецепт: американские панкейки с нутеллой...
К
Как приготовить баннок: легкий и вкусный рецепт...
З
Здоровье
01.09.2021
Как отвлечь себя от голода: полезные советы...
Д
Дом-и-сад
27.05.2023
Основы электротехники: Как разрядить конденсатор...
О
Школьники на старт: как завести друзей в новой школе?...
С
Как преодолеть контроль со стороны супруга...
Новые ответы от MOGZ: Информатика
gcgccg
gcgccg
30.07.2020
Для чего предназначена локальная сеть?...
СоняДемидова1
Дан массив. определить сумму квадратов всех элементов массива. с++...
Kardeyv
Kardeyv
06.08.2020
Дана квадратная матрица nxn. подсчитать количество четных элементов в данной матрице. (программа выполнения - pascal) буду признателен за решение...
терменатор6
Алфавит языка это: (варианты ответов на фотке)​...
Noksiwin
Noksiwin
28.03.2021
Складіть таблицю істинності логічного виразу...
1linia1
1linia1
12.02.2022
Программирование (Питон решить эти задания: 1. Вывести на экран все четырехзначные числа по 5 в строке 2. Дано натуральное число n. Вычислить |a1|*|a2|*|a3|...|an| 3. Вычислить следующую...
altynai0504
altynai0504
31.01.2020
Интегрированная среда разработки (ИСР) это: (варианты ответов на фото)​...
шгилтдтдьжжь
Напишите программы в Pascal. 1. Напишите программу, которая определяет число учеников в классе, чей вес превышает средний. 2. Напишите программу вычисления расстояния между точками...
Верониккка00
20 Б! 9) ? 14) ? ↑ Только эти заранее)​...
deisika7
deisika7
28.03.2022
Написать программу на представленную блок-схему в PASCALABC.NET в соответствующем программном файле....

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ