Program Zadacha;
Const Xmin = 0.2; Xmax = 1; S = 0.2;
Var fx, x: Real;
i: Integer;
Begin
x := Xmin;
i := 0;
While x <= Xmax Do
Begin
fx := Sqrt(2 + Sin(x)) / (x + Cos(x));
x := x + S;
i := i + 1;
WriteLn('f(x', i, ') = ', fx:5:5);
End;
ReadLn;
End.
Program abc;
var x, y,z:integer
begin
readln(x,z);
y:=2*x+2*z-(x/z);
writeln(y);
end.
Вроде так, разве что знаки могут быть другие( типо ; в конце и тд)
#include <iostream>
int main()
{
int
days,
sale;
float sum = 0.0f;
std::cout << "Введите количество дней, скидку, сумму(в долларах): ";
std::cin >> days >> sale >> sum;
sale /= 100;
for(int i = 0; i < days; i++)
{
sum += 3; // прибавляем 3$
sum += sum * sale; //прибавляем процент от суммы
}
std::cout << "Итоговая прибыль равна = " << sum << std::endl;
}
Системные программы - обеспечивают работу компьютера и взаимодействие компьютера с пользователем
инструментальные программы - для разработки новых программ
прикладные программы - для решения задач пользователя