Как записать по правилам языка программирование следующие выражения?

Знания

Информатика

1 ответ:

Михаил Прохоров3 года назад

0 0

Какие выражения то надо записать?

Читайте также

Помогите написать программы в pascal ABC (program,var,begin,end)

queenbest

1)
uses crt;
var y,x:integer;
begin
writeln(x);
y:=COS(x/2)-SIN(x);
readln(y);
end.
2)
uses crt;
var a,y,x:integer;
begin
a:=0;
readln(x);
a:=0,5*x+1;
y:=0,5*sqr(a)+1,4*x-1;
writeln(y);
end.
3)
uses crt;
var d,x:integer;
begin
writeln(x);
d:=(1/3)*x*49+(4/6)*x*108+(2/6)*x*80;
readln(d);
end.

0 0

4 года назад

Помогите с контрольным тестом по информатике, пожалуйста? «Системы счисления»

Ameliya

Ответ:
4)Г
5)А
6)Б
это всё хотел другие варианты по решать времени нет

0 0

4 года назад

В массиве подсчитать: количество положительных и количество чётных чисел вместе. (Элементов массива:24. Массив вводится случайны

Кристина1993 [14]

На обычном паскалеАБЦ
var a:array[1..24] of integer; k,i:integer;
begin
k:=0;
for i:=1 to 24 do read(a[i]);
for i:=1 to 24 do if (a[i]>0) and (a[i] mod 2=0) then k:=k+1;
write(k)
<span>end.</span>

0 0

4 года назад

Отдаю последние баллы! даны действительные числа A и B . Если числа не равны, то большее увеличить в пять раз, а меньшее уменьши

Данил128 [1]

BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.

0 0

4 года назад

Составить блок-схему алгоритма и программу на Паскале для вычисления функций y(x). Ввести программу в ЭВМ, вычислить значения фу

HyperCom

Ответ:

Program test;

Var

a, b, c, e, x, t, n, y: real;

Begin;

readln (a, b, c, e, x);

t:= (Abs(Exp(3*Ln(Sin(x))))+a)*Exp(a*Ln(e));

n:= Exp(Ln(sqr(b)+sqr(c))/3);

y:= t/n;

writeln (y);

End.

0 0

4 года назад