1.
var i,j:integer; p,s:real;
begin
s:=0;
for i:=1 to 5 do
begin
p:=1;
for j:=1 to 6 do p:=p*(i+j)/20;
s:=s+p;
end;
writeln('s=',s);
<span>end.
2.В этой задаче используется тип real, так как числа получаются ОЧЕНЬ БОЛЬШИЕ
var n,k:integer; p1,p2,s:real;
begin
p1:=1;
for n:=1 to 5 do p1:=p1*n;
p2:=1;
for k:=1 to 30 do p2:=p2*k;
s:=p1+p2;
writeln(p1,' ',p2);
writeln('s=',s);
<span>end.</span>
</span>
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
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.
Тактильная вроде... Этр когда касаешься чего-либо
#include <iostream>
int main()
{
int n;
std::cin>>n;
for(int i = 1; i<=30;i++)
{
if(i%n==0)
std::cout<<i<<"\n";
}
}