Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
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.
<span>program amoeba; </span>
<span>var i,count:integer; </span>
<span>begin </span>
<span>i:=3; //количество часов </span>
<span>count:=1; //количество амеб </span>
<span>while i < = 24 do </span>
<span>begin </span>
<span>count:=count*2; //каждые 3 часа количество амеб удваивается </span>
<span>writeln(i,' hours: ',count); //выводим кол-во часов и амеб </span>
<span>i:=i+3; </span>
<span>end; </span>
<span>readln; </span>
<span>end.</span>
4. http:// - протокол
5. ftp://www.net.ru/http.txt (ВАЖГЕБД)
6. 192.153.25.62 (ГБВА)
далее idk
#include <iostream>
#include <math.h>
using namespace std;
int main(){
double x, y;
cin>>x;
if (x<3) y=log(abs(2-x));
else if (x>=3&&x<5) y=x/(x-2);
else y=sqrt(x-4);
cout<<y;
}