4 года назад

Написать на языке паскаль программу вычисления у по формуле: y=(1-x^2 + 5x^4)^4 где х целое число

1 ответ:

dido-n4 года назад

0 0

Program calc;
Var x,y: real;
Begin
Write('Первое число:');
readln (x);
y := (1-x*2+5*x*4)*2;
// y := pow( (1-x*x+5*pow(x,4) ) ,2); или так если там степени
Write ('Результат:',y);
End.

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

Как вывести на экран слово привет в qbasic,?

Света Петрова

PRINT "Привет!"

Если вместо текста выводятся каракули, то это проблема кодировки.

0 0

4 года назад

1.Дано целое число,лежащее в диапазоне 1-999.Вывести его строку-описание вида "четное двузначное число","нечетное трехзначное чи

Daniyar trader

1)var a:integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2=0) then write('Чётное ')
else write('Нечётное ');
if (a div 100>=1)then write('трёхзначное число')
else if (a div 10>=1)then write('двузначное число')
else writeln('однозначное число');
end.
2)var a,b,c:real;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if (a<b)and (b<c) then
begin
a:=2*a;
b:=2*b;
c:=2*c;end
else
begin
a:=(-1)*a;
b:=(-1)*b;
c:=(-1)*c;
end;
writeln(a);
writeln(b);
writeln(c);
end.
3)var a,b,c:integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
if a=b then writeln('3')
else if b=c then writeln('1')
else writeln('2');
end.

0 0

4 года назад

Для представления слова "_лес_" требуется сколько байтов

9605095471

"_лес_" - 5 символов
пусть кодировка 8 битовая
5*8 = 40 бит = 5 байт

0 0

4 года назад

Тут по сути легко, но! господиии!! как это сдедатьььььь???

александр 80 [30]

Ответ:Он разрурится

Чтобы робот переместился из точки А в точку В нужна такая последовательность команд : 32324

Объяснение: