4 года назад

Написать алгоритм удвоения меньшего из двух чисел.

Знания

Информатика

1 ответ:

angel877 [2.1K]4 года назад

0 0

If a<b then a:=a*2 else if b<a then b:=b*2;

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

За один семестр студент должен пройти 2 тестирования. Максимальное количество баллов, которое может набрать студент за каждое те

Дейя [31]

Странная задача... 2 битами можно закодировать не больше 3 баллов, если считать с нуля. А одним битом не больше 1 балла. Получается максимум за два теста он получил не больше 4 баллов из 200. Даже для двоечника маловато.

0 0

4 года назад

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

Могут ли сгореть ядра в компьютере??? И у каких процессоров большой шанс возгарания при разгоне???

Dasha-V

Как правило, при перегреве происходит троттлинг у процессоров Intel, или даже появляется "экран смерти". после остывания комп запускается вновь.

AMD. при отсутствии термопасты и должного охлаждения.

0 0

4 года назад

За один семестр студент должен пройти 2 тестирования.Максимальное количество баллов; которое может набрать студент за каждое тес

conjurers

Хз
Незнаю как. ссори может на сайте каком то

0 0

3 года назад

Найдите пожалуйста ошибку ABS Pascal.

Елена4569

11 строка не стоит точка с запятой

0 0

3 года назад

Дан массив целых чисел из 15 элементов,заполнненый случайным образом числами из промежутка [-20,50] Вывести все элементы,в запис

Adler83

// Листинг программы и скриншот результата в приложениях.

const
    max_v = 15;
    m1 = -20;
    m2 = 50;

var i,j:byte;
    v:array [1..max_v] of integer;
    a,b:integer;

// начальное заполнение массива
procedure randomArray(tx:string);
var i:byte;
begin
writeln(tx);
randomize();

for i:=1 to max_v do begin
    v[i]:=random(m1,m2);
    write(v[i]:6);
end;
writeln('');
writeln('');
end;

begin
randomArray('Начальный массив');
writeln('Вывести все элементы,в записи которых есть цифра 5 или 7');

for i:=1 to max_v do begin
    //десятки числа
    a:=v[i] div 10;
    //единицы числа
    b:=v[i] mod 10;
    if (a=7) or (a=5) or (b=7) or (b=5)
    then
      writeln(v[i]);
end;

end.

0 0

4 года назад