begin writeln('введите три числа'); read(num1, num2, num3); //вводим три числа
if (num1 mod 10 = 1) and (num1 mod 7 = 0) then //при делении на 10, остаток это будет последней цифрой //затем проверям кратно ли num1 7, если да то прибавляем его к сумме summ:=summ+num1;
//тоже самое выполняем с num2 if (num2 mod 10 = 1) and (num2 mod 7 = 0) then summ:=summ+num2;
//и num3 if (num3 mod 10 = 1) and (num3 mod 7 = 0) then summ:=summ+num3;
var
num1:Integer; //число 1
num2:Integer; //число 2
num3:Integer; //число 3
summ:Integer; //сумма
begin
writeln('введите три числа');
read(num1, num2, num3); //вводим три числа
if (num1 mod 10 = 1) and (num1 mod 7 = 0) then
//при делении на 10, остаток это будет последней цифрой
//затем проверям кратно ли num1 7, если да то прибавляем его к сумме
summ:=summ+num1;
//тоже самое выполняем с num2
if (num2 mod 10 = 1) and (num2 mod 7 = 0) then
summ:=summ+num2;
//и num3
if (num3 mod 10 = 1) and (num3 mod 7 = 0) then
summ:=summ+num3;
write('Сумма: ',summ);//выводим сумму
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
дрожжи, процент, расход, дней: ВЕЩ;
сч: ЦЕЛ;
УКАЗ
дрожжи := 120;
Вывод.Цепь("p: "); процент := Приём.Число();
Вывод.Цепь("Tx: "); расход := Приём.Число();
Вывод.Цепь("Tt: "); дней := Приём.Число();
ОТ сч := 1 ДО дней ВЫП
дрожжи := дрожжи + дрожжи * (процент / 100) - расход
КОН;
Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)
КОН Задание.