Составить программу, которая вычисляет необходимое количество рулонов обоев для ремонта комнаты. Если - id1271011420211024 от anyaternovskay 24.10.2021 06:36

Question

Информатика: Составить программу, которая вычисляет необходимое количество рулонов обоев для ремонта комнаты. Если при вводе значений программа определит, что высота от пола до потолка больше, чем значение длины большей стены, то выводится сообщение: «Вы ввели некорректные данные». Параметры для составления программы: h – высота от пола до потолка, L1- длина большей стены, L2- длина меньшей стены, Db – ширина двери, Da – высота двери, Wa – ширина оконного проема, Wb - высота оконного проема. Параметры рулона

anyaternovskay · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172 var   ma: array of array of integer;   n, m, i, j, max, maxi, maxj: integer;   f: text;   s, st: string; begin   randomize;   readln(n);   readln(m);   max := -1;   setlength(ma, n);   for i := 0 to n - 1 do     setlength(ma[i], m);   writeln( Matrix: );   for i := 0 to n - 1 do   begin     writeln;     for j := 0 to m - 1 do     begin       ma[i, j] := random(101);       write(ma[i, j]:4);       if max ma[i, j] then       begin         max := ma[i, j];        ...

MOGZ ответил