1. Информатика
  2. Даны 2 различных числа. найти

Даны 2 различных числа. найти c=max/min. написать программу в pascal

катя072 катя072    2   06.08.2019 02:20    0

Ответы
nadir7207 nadir7207  25.08.2020 20:19
Begin
var a, b, c: integer;

readln(a,b);

c := 1;

if a > b then c := a / b
else c := b / a;
writeln(c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vi600081 vi600081  16.07.2019 17:11
Pascal функция exp(ln(a)*n), возводящая в степень, как это работает? я понимаю, что такое натуральный логарифм, но что за exp и как они взаимодействуют?...
sharapoid sharapoid  16.07.2019 17:20
Составить программу которая по номеру месяца выводит его название...
Pixelia Pixelia  16.07.2019 17:20
Составьте алгоритм вычисления площади неправильного треугольника если известны его стороны а,в,с...
evakozyreva03 evakozyreva03  16.07.2019 17:20
Что стало с электронными приборами в 90 80 годов...
KsenyaKnyazeva1 KsenyaKnyazeva1  16.07.2019 17:20
4. ваш товарищ создал программу по обработке звуковой информации. как привлечь внимание потенциального покупателя?...
maksimananchenko maksimananchenko  16.07.2019 17:30
Каковы основные записи алгоритмов...
Temir338 Temir338  16.07.2019 17:30
Чему соответствует в64f 16 в десятичной системе счисления...
dxkuznecov dxkuznecov  16.07.2019 17:40
/для среды pascalabc uses graphabc; const k=6; var n,x,y: integer; procedure snow (x0,y0,r,n: integer); const t=2*pi/k; var i,x,y: integer; begin for i: =1 to k do begin...
dflbv20050102 dflbv20050102  16.07.2019 17:40
Написать программу на javascript веб-страница содержит форму с текстовым полем длиной до 20 символов. по нажатию кнопки «готово» программа формирует таблицу из двух строк...
khubulovaliza khubulovaliza  16.07.2019 17:40
Вчем состоит ошибка в данном фрагменте программы при использовании строки message? char message[14] = hello, world! ; for(int i = 0; i 14; i++) message[i] += 1; printf(...

Популярные вопросы