4 года назад

Написать программу с помощью которо компьютер находит модуль числа х в паскале. ПОМОГИТЕ ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!

Знания

Информатика

1 ответ:

msuRusman [7]4 года назад

0 0

var x: integer;

begin

write('Введите число x: ');

readln(x);

writeln('Модуль числа x = ',abs(x));

readln;

end.

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

Помогите 11-ое . Желательно полный ответ )))

Никитос ТВ [49]

16 бит= 2 байт

1 кбайт=8192 бита

8 байт=64 бит

4 кбайт=4096 байт

0 0

3 года назад

Запишите в развернутой форме числа: а)23,1504[6] б)100,11[2]

Kukushka2020 [30]

143,511(10) = 1*10^2+4*10^1+3*10^0+5*10^-1+1*10^-2+1*10^-3
143511(8) = 1*8^5+4*8^4+3*8^3+5*8^2+1*8^1+1*8^0
143511(16) = 1*16^5+4*16^4+3*16^3+5*16^2+1*16^1+1*16^0
1435,11(8) = 1*8^3+4*8^2+3*8^1+5*8^0+1*8^-1+1*8^-2

0 0

3 года назад

В ячейку А1 введена дата 12.10.09 эту дату протянули маркером автозаполнения к ячейке А10.в ячейке А10 появится 1)12.10.09 2)22

Макс556677 [49]

В ячейке появится 4) 21.10.09

0 0

4 года назад

ХеееелпПроцесс создания приложения в интегрированной среде Lazarus

Tina54

Процесс создания приложения в Lazarus можно разделить на следующие этапы:
1. Формирование окна программы – расположение необходимых элементов, задание размеров, изменение свойств; 
2. Написание программного кода, описание свойств элементов, доступных только во время работы приложения, описание реакций на событие появления окна, нажатие на кнопку и других; 
3. Отладка программы.

0 0

4 года назад

Задан одномерный массив А(N) (N<=60). На место минимального элемента массива записать сумму последних К элементов массива. Ес

Mamont248 [21]

Var
A:array[1..60] of integer;
k,i,MIN,ind, MAX,SUM:integer;
begin
SUM:=0;
readln(k);
randomize;
writeln('Исходный массив:');
for i:=1 to 60 do
begin
 A[i]:=random(15)-5;
Writeln('A[',i,']=',A[i]);
end;
MIN:=32600;
MAX:=-32600;
for i:=1 to 60 do //Ищем минимальный элемент
begin
if a[i]<MIN then
MIN:=a[i];
ind:=i;
end;
for i:=1 to 60 do //Ищем максимальный элемент
if a[i]>MAX then
MAX:=a[i];
for i:=60 downto 60-k do //Сумма последних k элементов
SUM:=SUM+a[i];
A[ind]:=SUM;
if A[1]>=0 then
 for i:=1 to 60 do
begin
A[i]:=A[i]*sqr(MIN);
Writeln('A[',i,']=',A[i]);
end
else
for i:=1 to 60 do
begin
A[i]:=A[i]*sqr(MAX);
Writeln('A[',i,']=',A[i]);
 end;
end.

0 0

4 года назад