4 года назад

Сделайте пожалуйста.Очень нужно прошу.СРОЧНО!

Знания

Информатика

1 ответ:

Гаврилова Татьяна... [119]4 года назад

0 0

Эммм а где пример??????

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

составьте программу, которая будет определять положительное или отрицательное введённое пользователем число. (программа турбо па

Игорь58946

program w7w7;

var a:real;

begin

readln (a);

if a<0 then writeln ('otritsatelnoe chislo');

if a>0 then writeln ('pologitelnoe chislo');

end.

0 0

4 года назад

На ленте расположен массив из 2n меток. Составить программу, по которой машина раздвинет на расстояние в одну клетку две половин

max0r

VB.

Dim A() As Integer

Randomize()
Dim k As Integer
Dim n As Integer
n = Rnd() * 100 + 1
ReDim A(n)
For k = 0 To n
A(k) = Rnd() * -1000 + 500
Next

Dim Dump As Integer
Dim u As Integer
u = InputBox("Введите номер элемента для встанвки в пределах от 0 до " & n)
ReDim Preserve A(n + 1)
For k = n + 1 To u + 1 Step -1
Dump = A(k)
A(k) = A(k - 1)
' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
A(k - 1) = Dump
<span>Next</span>

0 0

4 года назад

Количество миллионов тактов, которые совершил процессор за семь секунд, равно 20300. Определите частоту процессора в Мгц. Узнайт

Hameleon 456 [37]

<span>Ячейка памяти хранит 1 бит информации. Таким образом:</span>

0 0

4 года назад

Автомат получает на вход трехзначное число. По этому числу строится новое число по следующим правилам:1.Складываются первая и вт

Аистория

Логика такая:

1) Число 157 - это суммы 15 и 7 в порядке убывания, т.к. 1 и 57 не подойдут в виду условий задачи.

2) Пусть наименьшее число abc, тогда желательно b+c = 15, а a+b = 7.

Подберем: чтобы цифра b в нашем числе было наименьшей, цифра c должна взять на себя наибольшее значение -> 9. Тогда b = 6.

Итого: a69.

a будет 1, т.к. 1+6 = 7.

Таким числом является 169.

Проверим: 1+6 = 7. 6+9 = 15. В порядке убывания получается 157.

0 0

4 года назад

Запишите на pascal следующее арифметическое выражение: A = π r^2

Victori [50]

A:=3,14*r*r, где радиус ты должна указать

0 0

4 года назад