Задать вопрос!

Задать вопрос!

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

4 года назад

8

Помогите мне по информатике тест

Помогите мне по информатике тест

Информатика

1 ответ:

Kroshka254 года назад

0 0

Ответ:

1)A

2)D

3)A

4)C

5)B

6)E

Объяснение:

Осылай ойлайм

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

В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения элементов равны 6, 7, 5, 8, 3, 2, 0,

pavel111 [7]

Var
i, c,t:integer;
A: array[0..9] of integer;

Begin
A[0]:=6;
A[1]:=7;
A[2]:=5;
A[3]:=8;
A[4]:=3;
A[5]:=2;
A[6]:=0;
A[7]:=1;
A[8]:=9;
A[9]:=4;

c:=0;
for i:= 0 to 9 do //ошибка либо в условии либо в коде
  if A[i]<A[0]
then
Begin
   c:=c + 1;
   t:=A[i];
  A[i]:= A[0];
  A[0]:= t;
  end;

writeln('c= ', c);
readln;
<span>end.

Ответ: c=4

</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Напишите программу, на паскале, пожалуйста, факториал.

Василиса Премудрая [7]

Ответ:5/7

Объяснение:

0 0

4 года назад

Составить программу в паскале,позволяющую получить словесное описание школьных отметок: 1-плохо 2-не удовлетворительно 3-удовлет

Darkkiner48

program OCEHKA;
uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
write('Введите оценку- ');
ReadLn (a);
b:=a;
case b of
1:s:='Плохо';
2:s:='Неудовлетворительно';
3:s:='Удовлетворительно';
4:s:='Хорошо';
5:s:='Отлично';
end;
WriteLn (s);
ReadLn(s);
end.

0 0

4 года назад

Введите 2 числа a ,b выведите на экран порядковый номер меньшего из них

Vo1fys [1]

Program p1;
var a,b:integer;
begin writeln('Введите два числа');
readln(a,b);
if a=b
then writeln('Числа равны')
else if a<b
then writeln(1)
else writeln(2);<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Сколько времени потребуется модему передающему сообщение со скоростью 51200 бит.сек , чтобы передать цветное растровое изображен

Скоблова Виктория...

Log2(4000000000)=4 байта на точку.
800*600*4=1920000 байт на картинку или 1920000*8=15360000 бит.
15360000/51200=300 секунд

0 0

4 года назад