В мастерской Мальвиныизготавливается упаковка для подарков: пакеты, коробки, мешки. За изготовленный пакет работник получает 2 стакана лимонада, за коробку —4 стакана Кока-Колы, за мешок —3 стакана молока. Буратино изготовил 12 пакетов, 3 коробки и 1 мешок. Пьеро —5 пакетов, 5 коробок и 2 мешка. Пудель Артемон —13 пакетов. Сама Мальвина —2 коробки и 5 мешков. Построить электронную таблицу, из которой будет видно: сколько всего литров жидкости было получено каждым (1 стакан = 0,2 литра); сколько литров лимонада, Кока-Колы и молока потребовалось хозяйке мастерской; сколько было сделано каждого вида продукции.Прежде, чем решать задачу надо правильно построить таблицу.1.В 1-ой строке разместим шапку таблицы.В ячейке А1 напишем УПАКОВКА и ниже по столбцу А в строках 2, 3, 4 перечислим упаковку: Пакеты, Коробки, Мешки;2.В ячейке В1 пишем: Цена за упаковку и ниже по столбцу В в строках 2, 3, 4 укажем цены за пакеты, коробки, мешки соответственно условию задачи;3.Далее, начиная со столбца С, в 1-ой строке пишем имена работников Буратино, Пьеро, Пудель Артемон, Мальвина.4.В следующих строках записываем количество изготовленных каждого вида упаковки для каждого работника;5.В ячеке G1 пишем Всего сделали упаковки, в этом столбце вычислим, сколько каждого вида упаковки изготовили работникиМальвины и она сама. Для этого воспользуемся фунцией, которая подсчитываем сумму значений указанных ячеек Ставим курсор в ячейку G2, кликаем мышью по знаку сигма на строке формул, определяем диапазон ячеек, которые участвуют в суммировании с С2 по F2 (C2:F2);
Паскаль
program m1;
uses crt;
var a,b,c,d:integer;
begin
write('Введите число: '); readln(a); {Задаем число}
b:=a mod 10; {В переменную b заносится значение последней цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
c:=a mod 10; {В переменную c заносится значение последней(второй) цифры в числе}
a:=a div 10; {Сокращаем переменную до 2 чисел}
d:=a mod 10; {В переменную d заносится значение первой цифры в числе}
if (d*b = d + c) then writeln('Произведение 1 и 3 цифры и сумма 2 и 1 цифр равны!')
else writeln('Произведение 2 и 3 цифры и сумма 1 и 1 цифры не равны!');
end.
Циклической,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,