Владелец овощно гомагазина решил приобрести 10 тонн картофеля для продажи. В хозяйстве, расположенном за 150 км, емупредложиликартофельпо1,5 руб./кг. Вдругом хозяйстве, расположенном за 50 км, ему предложили картофельпо 1,7 руб./кг. Куда выгоднее поехать за картофелем, еслибензинстоит 10 руб./л, ана100 кмрасходуется 15 литров?. . 1. , закупаемогоу 1 ? 2. , 25%? 3. , чтобыполучитьдоход 6000 руб. 25%? 4. Прикакихобъёмахзакупоку 1 и 2 2 руб./ 6000 руб.? 5. По какой цене надопродать 10 тонн картофеля, чтобы получить 6000 рублей дохода от сделки с первым продавцом? Задание 2 Определить, какой должна быть сумма договора, если вы хотите получить 10000 рублей «чистого» дохода, если известно, что: — 4% налоговисборов; — 5% отсуммыдоговора; — сумма, котораяосталась, , носучетомтого, чтоналоги, начисляемые на фонд оплатытруда (ФОТ), составляют, например, 38% от ФОТ. Таким образом, сумма, которая осталась, это ФОТ + 38%*ФОТ. — подоходный налог составляет 13% от начисленной о платы труда. Составьте прямой расчет и выполните подбор параметра (изменяемое значение – «суммадоговора», подбираемое – «к выдаче»).
d1,d2,n:integer;
k,s:longint;
begin
Write('Введите натуральное двухзначное число: '); Read(n);
d1:=n div 10; d2:=n mod 10;
k:=sqr(n); s:=4*(d1*sqr(d1)+d2*sqr(d2));
Write(n,': ');
if k=s then Writeln('Квадрат числа (',k,
') равен учетверенной сумме кубов его цифр')
else Writeln('Квадрат числа (',k,
') не равен учетверенной сумме кубов его цифр (',s,')')
end.
Тестовое решение:
Введите натуральное двухзначное число: 48
48: Квадрат числа (2304) равен учетверенной сумме кубов его цифр
Введите натуральное двухзначное число: 47
47: Квадрат числа (2209) не равен учетверенной сумме кубов его цифр (1628)
Замечание: На самом деле лишь одно число 48 среди всех двухзначных чисел удовлетворяет условию равенства, так что достаточно просто сравнивать введенное число с 48, чтобы решить задачу )))
1.
var a:longint;
begin
read(A);
if (a mod 10)=(a div 10) then writeln('цифры одинаковы');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше');
if (a div 10)>(a mod 10) then writeln('первая цифра больше');
end.
2.
var a,b,c:longint;
begin
read(A);
b:=a mod 10;
c:=a div 10;
b:=b*b*b;
c:=c*c*c;
d:=4*(b+c);
if sqr(A)=d then writeln('квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln(' квадрат этого числа не равен учетверённой сумме кубов его цифр');
end.
3.
var a,b,c,d:longint;
begin
read(A);
b:=a mod 10;
c:=a div 10;
d:=c+b;
if d mod 3=0 then writeln('сумма цифр данного числа кратна 3') else writeln('сумма цифр этого числа не кратна 3');
if d mod 4=0 then writeln('сумма цифр данного числа кратна 4') else writeln('сумма цифр этого числа не кратна 4');
end.
4.
var a,b,c,d,e:longint;
begin
read(A);
b:=a mod 10;
c:=(a mod 100) div 10;
d:=a div 100;
b:=b*b*b;
c:=c*c*c;
d:=d*d*d;
e:=b+c+d;
if sqr(A)=e then writeln('квадрат этого числа равен сумме кубов его цифр.') else writeln('квадрат этого числа не равен сумме кубов его цифр.');
end.
5.
var a,b,c,d:longint;
begin
read(b,a);
c:=b mod 10;
d:=b div 10;
if (c=3)or(d=3) then writeln('в запись этого числа входит цифра 3') else writeln('в запись этого числа не входит цифра 3');
if (c=a)or(d=a) then writeln('в запись этого числа входит цифра ',a') else writeln('в запись этого числа не входит цифра ',a);
end.