Чему будет равна переменная «a» при X:=5 после выполнения фрагмента программы с условным оператором: If x=0 then a:=2*2 else If x>0 then a:= 3*x else a:=4*x?
Для того, чтобы перевести целое число из десятичной в двоичную систему счисления, необходимо разделить его на два, а затем делить на два каждое полученное частное до тех пор, пока не получится единица. Искомое двоичное число записывается как последовательность цифр, равных последнему частному (единице) и всем полученным остаткам, начиная с последнего.
Надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичную
Получается вот так: 21 = 10101 2=10 2002 = 11111010010
program asd; uses crt; var a: array[1..10] of integer; i:integer; sum:integer; begin writeln('Введите 10 цифр по очереди'); for i:=1 to 10 do begin readln(a[i]); if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end; end;
writeln(' ',sum);
end.
2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями?
3. program asd; uses crt; var a: array[1..10] of integer; i:integer; naib:integer; begin writeln('Введите 10 цифр по очереди'); for i:=1 to 10 do begin readln(a[i]); if (a[i]>naib) then naib:=a[i]; end;
Надо перевести сначала 21 в двоичную, потом 2 в двоичную и потом 2002 в двоичную
Получается вот так:
21 = 10101
2=10
2002 = 11111010010
В итоге:
10101.10.11111010010
1.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
sum:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>7) then begin a[i]:=7; sum:=sum+1; end;
end;
writeln(' ',sum);
end.
2. смысл задания? 10/2=5 или индексами ты имела ввиду значениями?
3.
program asd;
uses crt;
var
a: array[1..10] of integer;
i:integer;
naib:integer;
begin
writeln('Введите 10 цифр по очереди');
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i]>naib) then naib:=a[i];
end;
writeln(' ',naib);
end.