Сколько моделей можно создать при описании земли?

Знания

Информатика

1 ответ:

chesapeake003 года назад

0 0

Можно создать две моделей

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

Паскаль:Дан массив "А" состоящий из 10 случайных чисел, сформировать новый массив "В", значения которого будут в 5 раз меньше зн

kblay [1.4K]

Var
A: array [1..10] of real;
B: array [1..10] of real;
i: integer;
begin
writeln('Массив А:');
for i:= 1 to 10 do
begin
A[i]:= random(200) - 100; {Задаем каждый элемент массива А случайным числом на отрезке [-100; 100]}
writeln(A[i]);
end;
writeln('Массив В:');
for i:= 1 to 10 do
begin
B[i]:= A[i] / 5;
writeln(B[i]);
end;
end.

0 0

4 года назад

ОЧЕНЬ СРОЧНО!!! ДАМ МНОГО БАЛЛОВ!!! Как в Паскале написать программу: Вывести первые n степеней числа 2, начиная с нулевой. Найт

Овенёнок

Ответ:

var a,b,c,d:integer;

begin

writeln('введите число'); //запрос числа

readln(a);

d:=a; //это для красоты

while (a<>0) do begin //пока мы не дойдём до последней цифры в числе делать следующее

b:=a mod 10; //берём последнюю цифру числа

c:=c+b; //находим сумму цифр

a:=a div 10; //убираем из данного числа последнюю цифру

end;

writeln('сумма цифр числа ',d,' = ',c); // вывод результата

end.

Вроде вот)

0 0

1 год назад

В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данн

KrisV69

60*16=960 бит
Ответ: 2

0 0

4 года назад

Напишите программу в Паскале, которая определяет среднее арифметическое чисел в интервале от N до N1

ОМОЛОНЬ

Var N, N1, Sum, i: integer;
begin
  readln(N, N1);
  for i := N to N1 do Sum := Sum + i;
  writeln(sum / (n1 - n + 1));
end.

0 0

4 года назад

Выразите в часах: 4 ч 24 мин; 7 мин 20 сек

Афхуд

$4\frac{24}{60}=4.4\\\frac{7\frac{20}{60}}{60}=0.1(2)$
Так?

0 0

4 года назад