Program pokypka;
var s,os,v1,v2,v3:integer;
begin
writeln('Введите имеющуюся сумму');
readln(s);
writeln('Введите цену первой вещи');
readln(v1);
writeln('Введите цену второй вещи ');
readln(v2);
writeln('Введите цену третьей вещи');
readln(v3);
os:=s-v1-v2-v3;
writeln('Остаток денег=',os)
end.
Лепи из пластилина
потом попробуй по макету сделать из того материала из которого надо.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(ReadInteger('n=')).Aggregate(BigInteger(1),(x,y)->x*y*y).Println
end.
<u>Пример</u>
n= 100
8709782489089480079416590161944485865569720643940840134215932536243379996346583325877967096332754920644690380762219607476364289411435920190573960677507881394607489905331729758013432992987184764607375889434313483382966801515156280854162691766195737493173453603519594496000000000000000000000000000000000000000000000000
1-я задача:
<span>Я<=Г </span>
<span>Г=15 </span>
<span>Ответ: плодов не более 30 (15 груш и не более 15 яблок) </span>
#include <iostream.h>
#include <math.h>
void main()
{
float x;
float a,d,c,k;
cout<<"Vvedit a ";
cin>>a;
cout<<"Vvedit d ";
cin>>d;
cout<<"Vvedit c ";
cin>>c;
cout<<"Vvedit k ";
cin>>k;
x=(a+(d-12)*3)*(c-5*k);
cout<<"x = "<<x;
}
програма написана на мові програмування с++