Задать вопрос!

Задать вопрос!

Все категории

4 года назад

10

Решите задачу по информатике на Pascal

Решите задачу по информатике на Pascal

Информатика

1 ответ:

Yulia8 [2.3K]4 года назад

0 0

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (a,b):=ReadReal2;
if a>b then write('>') else if a<b then write('<') else write('=');
end.

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

Помогите!Срочно)))решить в Паскале

Ангелина2617

Const eps=0.001;
var n,st,f:integer; a,s:real;
begin
n:=1; a:=2;
st:=2; f:=1; s:=2;
while a>eps do
begin
st:=st*2;
f:=f*n;
a:=st/f;
s:=s+a;
n:=n+1;
end;
writeln('s = ',s:6:3);
end.

Результат:
<span>s = 14.778</span>

0 0

4 года назад

Помогите исправить ошибки.Листинг программа:Program Posledow;Var x, y: real;Beginx:=8Repet` y:=SQR(x-8)/6;Writeln (x:8:3, y:8:3)

Александр Шатеев [1]

Program Posledow;
Var x, y: real;
Begin
x:=8;
Repeat y:=SQR(x-8)/6;
Writeln (x,' ',y);
x:=x+6;
Until y+5<0;
End.

0 0

4 года назад

Срочно нужна помошь информатиков

Вася67 [188]

7)2,3
8)3,2
9)3,4
10)1,3

0 0

4 года назад

Прочитать ещё 2 ответа

Составьте программу создания изображения на любое поле. ( Pascal ABC робот) СРОЧНО НУЖНО!!!

Igorvoidn [3]

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

uses Robot;
begin
var (m,n):=(14,6);
Field(n,m);
while not(WallFromUp) do Up;
while not(WallFromLeft) do Left;
for var i:=1 to m div 2+m mod 2 do
begin
For var j:=1 to n-1 do
begin
Paint;
if i.IsEven then Left else Right;
Paint;
end;
if i<>m div 2+m mod 2 then begin Down; Down; end;
end;
end.

0 0

4 года назад

Какое из указанных ниже чисел может быть записано в двоичной системе счисления в виду 1хххх0, где можно означать как 0, так и 1?

приветикотики

Ответ должен лежать между 100000 и 1000000. т.е. между 32 и 64
В этот промежуток входят 43 и 58, но 43 нечетное и не может заканчиваться нулем
Ответ 58

0 0

4 года назад