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

1 год назад

Помогите!Изобразить с помощью кругов Эйлера: птица, воробей, перелиная птица, ласточка, аист.Спасибо)

Знания

Информатика

1 ответ:

рома полянский1 год назад

0 0

Самый большой круг птица. в нём воробей и перелётная птица.в перелётной птице аист и ласточка

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

Одномерный массив 1. Составьте программу ввода и вывода массива: 5, -2, 3, -6, 7, 9, -4, 8, 1, 2, 7, -3. 2. Составьте блок-схем

ТарасоваКсю

3)
const n=10;
var a:array [1..n] of integer; r,i:integer;
begin
r:=1;
for i:=1 to n do begin
a[i]:=r; inc(r,2); end;
for i:=1 to n do
write(a[i],' ');
end.

0 0

4 года назад

Удалила папку с компьютера с программой, теперь не удаляется из панели управления. Что делать в такой ситуации?

Владакраса2

Зайди в корзину, если надо восстановить программу

0 0

4 года назад

Переведите из двоичной системы счисления в восьмеричную и шестнадцатиричную системы счисления: 100111 и маленькая двойка внизу.

Ole4ka37

В восьмеричной : <span>47
В шестнадцатеричной: 27</span>

0 0

4 года назад

Y+n!=1×2×3×4...n Посчитать факториал числа с помощью циклического алгоритма. Нужно написать через repeat и for.

Scot Licon

Program a2;

Crt;

Vari,N : integer;

x, S : real;

Begin

ClrScr;

readln (N);

S:=0;

i:=1;

while i<=N do

begin

readln (x);

S:=S*x;

i:=i+1;

end;

write(s);

readln;

End.

0 0

4 года назад

Выполнить сортировку элементов, записанных на нечётных местах. В программе Pascal.. Срочно пожалуйста!! Даю 50

Ogorodnik 2019 [51]

<h3>PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>

begin

var a := ArrRandom(ReadInteger('n='), -50, 50);

a.Println;

a := a[::2].Sorted.Interleave(a[1::2]).ToArray;

a.Println

end.

0 0

4 года назад