Program n1;
const n=10;
var a: array[1..n] of integer;
i,num,kt: integer;
begin
randomize;
kt:=0;
num:=0;
for i:=1 to n do
begin
a[i]:=random(25)-12;
write(a[i],' ');
end;
for i:=1 to n do if a[i] mod 5=0 then begin
num:=i;
kt:=kt+1;
if kt=2 then break;
end;
writeln;
write(num);
end.

0 0

4 года назад

Составить блок-схему. ОЧЕНЬ НУЖНО! Через иллюминатор затонувшего корабля требуется вытащить сундук с драгоценностями. Составить

dos7475 [765]

см. вложение - должно выглядеть как-то так

0 0

4 года назад

Помогите пожалуйста Срочно надо)

Gnbxrf [1]

Задание номер 1 - ответ будет 20, задание номер 2 - "Х = 5", так как действия сложения выполняются при условии что А будет меньше 0. Но данное условие не соответствует.

Задание номер 3 на языке PASCAL:

program example1;

var number : integer;

begin

read(n1, n2);

if(n1>n2){

number = n1/n2

write(n1, number);

}else if(n2>n1){

number = n2/n1;

write(n2, number);

}else{

write("Оба числа равны!");

}

end;

Задание номер - 4.

дано число 15

1) умножить на 2

2) вычти 3

3) вычти 3

4) вычти 3

5) умножить на 2

то есть для получения числа 42 мы сделали следующее с числом 15:

15 * 2 =30

30 - 3 -3 -3 = 21

21 * 2 = 42

конец данного задания

0 0

4 года назад

В раствором графическом редакторе минимальным объектом, цвет которого можно изменить, является...

иинн

Принтор (краска) если размышлять логически

0 0

4 года назад