Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.

0 0

4 года назад

Файл може мати назву cat або dog і розширення bmp,jpg або gif .Скільки різних імен файлів можна скласти?Запиши ці імена

Аристарх Палеолог [100K]

Cat.bmp
cat.jpg
cat.gif
dog.bmp
dog.jpg
dog.gif

0 0

4 года назад

Составить блок схему алгоритма и вывода значения функции y=2/x, при изменении x от -2;2 с шагом 1

Мария347

Как-то так это все должно выглядеть (Если я еще не забыла ГОСТы)

0 0

4 года назад

Написать программу по Паскале. вычислить произведение нечетных чисел в диапазоне от 40 до 20(строго от 40 до 20!!!) Написать сам

Левченко Валерий [11]

Во вложении
___________________________

0 0

4 года назад