Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.
На иконке ярлыка в нижнем левом углу стрелка
У жука 6 ног, а у паука - 8.
1-й способ.
Пусть пауков х, тогда жуков - (8 - х). Ног у пауков будет (8х), а у жуков - 6(8 - х). Т.к. всего ног у них 54, составим и решим уравнение
8х + 6(8 - х) = 54,
8х + 48 - 6х = 54,
2х + 48 = 54,
2х = 54 - 48,
2х = 6,
х = 6 : 2,
х = 3.
Значит, пауков в коробке 3, а жуков - 5 (8 - 3 = 5).
Ответ: 5 жуков и 3 паука.
2-й способ.
Предположим, что в коробке только жуки, тогда ног у них было бы 6 · 8 = 48. Но ног у них 54, т.е. как бы "лишних" ног будет 54 - 48 = 6. И эти лишние ноги - это ноги пауков. Т.к. по сравнению с жуками у пауков на 2 ноги больше, о эти "лишние" ноги - это по ноги пауков. Значит, пауков в коробке будет 6 : 2 = 3, тогда жуков будет 8 - 3 = 5.
Ответ: 5 жуков и 3 паука.
Задание 1:
b:= 6/2*1(будет 3) переменная b перезаписалась;
a:= 2*6 + 3×3(будет 21);
задание 1:
ответ 21;
задание 2:
не могу понять что найти(тут просто мы задали формулы, например для переменной s:= pi*r*r, тут как бы просто подставь числа) есть константа pi и значение r)
Думаю немножко помог:)
