Помогите с \программой
10-11 класс
|
Pascal
Program chisla;
var x,y:integer; a:real;
begin
readln(x,y);
a:=y+x/(sqr(y)+abs(sqr(x)/(y+x*sqr(x)/3)));
writeln(a);
end.
Другие вопросы из категории
Читайте также
const
N=20;
var
a:array [1..N] of integer;
i,j,max:integer;
begin
for i:= 1 to N do
readln(a[i]);
max:=99;
j:=a[i];
for i:= 1 to N do
if (j>99) and (j<999) and (j mod 9 <>0) and (j>max) then max:=j;
if max>99 then writeln (max) else writeln ('no');
readln;
end.
программа проверяет только последнее число, а не все 20. где ошибка?
ракета запускается с земли со скоростью V(км час) в направлении движения земли по орбите вокруг солнца. составить программу,определяющую результат запуска ракета в зависимости от скорости V.
Известно,что при V16,4 ракета покинет солнечную систему.
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.
Начало программы:
1. var a,b,c:string;
2. begin;
3. writeln('Введите строку a');
4. readln(a);
5. writeln('Введите строку b');
6. readln(b);
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу