Программа Вот: Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами
Задание заключается в перепечатывании того, что написано на картинке, в соответствующие ячейки электронной таблицы.
Если хочется добиться полного совпадения, придется объединить ячейки D11:D12, выделить заголовки полужирным и настроить форматирование. То, что получилось у меня, приложено.
Для первого задания нужно поменять данные в ячейках B5:B8 - поставить высоту потолков, длину и ширину и указать, сколько процентов площади стен оклеивать не нужно (обычно двери, окна)
Во втором меняем значения B14:C19 и радуемся.
В третьем копируем строчку 19 вниз несколько раз и вписываем свои значения. Значения в столбиках D и E посчитаются сами.
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End.
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами
Задание заключается в перепечатывании того, что написано на картинке, в соответствующие ячейки электронной таблицы.
Если хочется добиться полного совпадения, придется объединить ячейки D11:D12, выделить заголовки полужирным и настроить форматирование. То, что получилось у меня, приложено.
Для первого задания нужно поменять данные в ячейках B5:B8 - поставить высоту потолков, длину и ширину и указать, сколько процентов площади стен оклеивать не нужно (обычно двери, окна)
Во втором меняем значения B14:C19 и радуемся.
В третьем копируем строчку 19 вниз несколько раз и вписываем свои значения. Значения в столбиках D и E посчитаются сами.