1) определить сумарные продажи по каждому городу(Всего) 2)определить регион с максимальными продажами(в - id1353231920220719 от Nope2281 19.07.2022 05:13

Question

Информатика: 1) определить сумарные продажи по каждому городу(Всего) 2)определить регион с максимальными продажами(в соответствующей графе в регионе с максимальными продажами должна быть запись лучший ) 3)определить минимальные продажи по каждому товару 4)определить максимальные продажи по каждому товару 5)определить максимальные продажи по всем товарам 6)определить минимальные продажи по всем товарам 7) подвести итоги по продажам каждого товара и всех товаров по всем городам 8)построить сравнительную диаграмму(гистограмму)

Nope2281 · Accepted Answer

//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer;

begin

write('Введите два числа: ');

readln(a, b);

if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

until (a mod с = 0) and (b mod с = 0);

write('NOD = ', с)

end.

//2. Алгоритм с вычитанием (цикл while)

var a, b: integer;

begin

write('a = ');

readln(a);

write('b = ');

readln(b);

while a <> b do

if a > b then

a := a - b

else

b := b - a;

writeln('NOD = ', a);

end.

MOGZ ответил