Var a,n:integer;
begin
writeln('Введите n');
readln(n);
for a:=10 to 99 do
if (a mod n =0)then writeln(a);
<span>end.</span>
Var
a,b,c,d:integer;
Begin
writeln('Введите цену тетради, карандаша и линейки соответственно');
read(a,b,c);
d:=a+b+c;
if d>200 then writeln('Баланс превышен');
End.
Программа на c++:
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
float a, b, x, y;
cout << "Input a,b,x: ";
cin >> a >> b >> x;
y = pow(cos(pow(x, 3)), 2) - abs(x) / sqrt(a * a + b * b);
cout << "You Input:\na=" << a << "\nb=" << b << "\nx=" << x << "\nResult:\ny=" << y;
return 0;
}
После ввода соответствующих значений программа выведет:
Input a,b,x: 1.5 15.5 -2.9
You Input:
a=1.5
b=15.5
x=-2.9
Result:
y=0.355384
Отсюда значение y: 0.355384
Ответ: y=0,355384
Так а где само задание?
Но в: Петров Пётр Прокофьевич. - 23 символа, "а"-0, и 3 символа совпадающих с Перовой буквой фамилии
3 D - dimensional (dimension - измерение)