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

4 года назад

Как называется ? Любой текст, созданный с помощью текстового процессора, вместе с включёнными в него нетекстовыми материалами.

Знания

Информатика

1 ответ:

Zogin [6]4 года назад

0 0

Это документ.........

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

№1 запишите десятичные эквиваленты следующих чисел: a) D4(16) b) 1001111(2) c) 16C(16) №2 представьте в десятичной, и в двоичной

Прованов

Если что то будет непонятно то спрашивай

0 0

4 года назад

В массиве из 6 элементов, заданных с клавиатуры, найдите произведение наибольшего и наименьшего значений (pascal abc)

takom81

Program mathlover12;

const

n = 6; {Количество элементов массива}

var

a:array[1..n] of integer;

s:string;

i,min,max: integer;

begin

s:='**** -=Alphaeus=- ****';

for i:=1 to 22 do begin write(s[i]); sleep(42) end;

{вводим элементы массива}

writeln; writeln('Введите ',n,' чисел:');

for i:=1 to n do read(a[i]);

{Ищем min и max}

min:=a[1];

max:=a[1];

for i:=2 to n do

begin

if min>a[i] then min:=a[i];

if max<a[i] then max:=a[i];

end;

{Выводим произведение min и max}

writeln; writeln;

writeln('Произведение min и max равнo ',min*max);

end.

0 0

4 года назад

Помогите пожалуйста!!составить программу нахождения числ равных 0 в таблице состоящей из 15 целых чисел на pascal (маасив)

WladZ

Во вложении
---------------------

0 0

4 года назад

Сообщение: " буратино потерял букварь" содержит 4 бита информации. Сколько всего учебников было у буратино

Vladfirst

Формула для решения подобных задач:
N=2^j
N=2^4
N=16

0 0

4 года назад

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

Составьте в тетради программу на языке программирования Паскаль. В качестве ответа прикрепите фото программы в тетради!

Siona

Var
x, y: real;

begin
write('x = ');
readln(x);
if (x <= 2) then
y := sqr(x) + 4 * x + 5
else
y := 1 / (sqr(x) + 4 * x + 5);
writeln('F(x) = ', y);
end.

0 0

3 года назад