4 года назад

Найти максимально положительное и максимально отрицательное. Как это максимально отричательное (-1) или (-20)?

Знания

Информатика

1 ответ:

Екатерина20164 года назад

0 0

Максимально отрицательное - это (-20).

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

В одном из изданий первого тома А. Дюма «Три мушкетёра» 512 страниц. Какой объём памяти (в Мбайт) заняла бы эта книга, если бы

пвапыв

512*64*64*16 бит = 512*64*64*2 байт = 512*64*64*2/1024 Кбайт =
= 64*64/1024 Мбайт = 4 Мбайт

0 0

4 года назад

Составить программу для вычисления значений функции F(x) на отрезке [a,b] с шагом h. результат представить в виде таблицы, первы

Сергеевна В

uses crt;
var a, b, h, f, x:real;
begin
writeln ('введите a, b');
readln (a, b);
if a>b then h:=a-b
else h:=b-a; x:=h;
f:=sin(x)*sin(x);
writeln;
writeln('|---|------|');
writeln('|x', ' | ' ' f |');
writeln('|---|------|');
writeln('|',x,' |', f:6:2,'|');
writeln('|---|------|');
x:=x+h;
end.<span>
</span>

0 0

4 года назад

СОСТАВТЬ ПРОГРАММУ ДЛЯ СЛЕДУЮЩИХ ЗАДАЧ пажалуста , пажалуста в паскале а)С клавиатуры вводится два вещественных числа.Найти целу

Drectop [7]

var

a, b : real;

begin

read (a, b);

write (trunc (a * b));

end.

var

a : integer;

begin

read (a);

write (frac (a / 10));

end.

г)

var

a, b : real;

begin

read (a, b);

write (round (a + b));

end.

var

a, b : integer;

begin

read (a, b);

write (a div b);

end.

var

a : integer;

begin

read (a);

write (a div 1000);

end.

ж)

var

a : longint;

begin

read (a);

write (a div 24 + 1);

end.

з)

var

k : integer;

begin

read (k);

write (k div 7 + 1);

end.

и)

var

k : integer;

begin

read (k);

write (k div 60, ':', k mod 60);

end.

0 0

4 года назад

Как можно ускорить процесс форматирования текста, в котором часто встречается фрагменты с одинаковым форматом?

vasyandr003 [349]

Если это MS Word, то либо создать свой пользовательский стиль и применять его, либо потом применить "формат по образцу" к нужным фрагментам.

0 0

5 лет назад

Дано вещественное число - цена 1 кг конфет. Вывести стоимость 1, 2, 3 - 10 кг конфет. Помогите, очень прошу. Среда - Паскаль. Ис

Смерш [21]

Var z,x:real;

i:integer;

a:array [1..10] of real;

begin

readln(z);

for i:=1 to 10 do begin

a[i]:=z*i;

writeln(a[i]);

end;

end.

0 0

4 года назад