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

Напишите программу, которая после ввода двух целых чисел делит первое число на второе и выводит на экран сообщение об остатке (если он есть) и частном (в любом случае).

👇
Ответ:
sasha1860
sasha1860
12.09.2020

var a,b: integer;

begin

 writeln('введите первое число');

 readln(a);

   writeln('введите второе число');

 readln(b);

 if a mod b > 0 then writeln('остаток от деления=',a mod b);

 writeln('целая часть от деления=',a div b);

end.

4,7(46 оценок)
Открыть все ответы
Ответ:
ramoxa
ramoxa
12.09.2020

Тип данных — класс данных, характеризуемый членами класса и операциями, которые могут быть к ним применены (ISO/IEC/IEEE 24765-2010)[2].

Тип данных — категоризация абстрактного множества возможных значений, характеристик и набор операций для некоторого атрибута (IEEE Std 1320.2-1998)[3].

Тип данных — категоризация аргументов операций над значениями, как правило, охватывающая как поведение, так и представление (ISO/IEC 19500-2:2003)[4].

Тип данных — допустимое множество значений[5].

Тип определяет возможные значения и их смысл, операции, а также хранения значений типа. Изучается теорией типов. Неотъемлемой частью большинства языков программирования являются системы типов, использующие типы для обеспечения той или иной степени типобезопасности.

4,6(97 оценок)
Ответ:
mainura2006
mainura2006
12.09.2020
Const
  n = 8;

var
  a: array[1..n]of integer;
  i, j, k, max: integer;

begin
  max := -MaxInt;
  for i := 1 to n do
  begin
    write('a[', i, ']= ');
    readln(a[i]);
    if a[i] > max then max := a[i];
  end;
  writeln(' максимальный элемент массива = ', max);
  //сортировка методом пузырька
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      if a[j] < a[j + 1] then begin
        k := a[j];
        a[j] := a[j + 1];
        a[j + 1] := k
      end;
  //вывод массива
  for i := 1 to n do write(a[i]:4);
end.

Тестовое решение:
a[1]= 12
a[2]= 4
a[3]= 6
a[4]= 23
a[5]= 4
a[6]= 7
a[7]= 8
a[8]= 1
 максимальный элемент массива = 23
  23  12   8   7   6   4   4   1
4,4(49 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ