UliaOlolenko464
14.02.2020 16:41

Н4) федор

4. в системе счисления с некоторым основанием число 27 записывается в виде 43. укажите это основание.

5. как представлено число 8310в двоичной системе счисления?

6. вычислите сумму двоичных чисел xи y, если x=11001012 y=10101112

7. вычислите сумму и чисел x и y, приx=3d16, y=334 . ответ запишите в десятичной системе счисления.

8. исполнитель калькулятор имеет только две команды, которым присвоены номера:

1. умножь на 3

2. вычти 2

выполняя команду номер 1, калькулятор умножает число на экране на 3, а выполняя команду номер 2, вычитает из числа на экране 2. напишите программу, содержащую не более 5 команд, которая из числа 1 получает число 23. укажите лишь номера команд. например, программа 11221 – это программа:

умножь на 3

умножь на 3

вычти 2

вычти 2

умножь на 3,

которая преобразует число 1 в число 15. нужны

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
christihhh75
26.06.2021 16:13
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println;
Writeln('Двоек: ', a.Where(t-> t = 2).Count);
Writeln('Троек: ', a.Where(t-> t = 3).Count);
Writeln('Четверок: ', a.Where(t-> t = 4).Count);
Writeln('Пятерок: ', a.Where(t-> t = 5).Count);
Writeln('Средний за диктант: ', a.Average:0:2);
end.

Пример:
Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2
Двоек: 6
Троек: 8
Четверок: 3
Пятерок: 3
Средний за диктант: 3.15
0,0(0 оценок)
Ответ:
Oueio
07.10.2021 01:59
Program Ulitka;
Var SunnyDay: Array [1..30] Of Boolean;
a, b, c, i: Integer;
Begin
WriteLn('a = ');
ReadLn(a);
WriteLn('b = ');
ReadLn(b);
b := b * 100;
Randomize;
For i := 1 To 30 Do
Begin      
If Random(2) = 1 Then
SunnyDay[i] := True
Else
SunnyDay[i] := False;
End;
For i := 1 To 30 Do
Begin  
If SunnyDay[i] = True
ThenBegin    
a := a + 2;    
If a > b Then    
a := b;  
End  
Else  
Begin   
a := a - 10;    
If a < 0 Then    
a := 0;  End;  
End; WriteLn('Дни месяца были таковы:');
For i := 1 To 30 Do
Begin
If SunnyDay[i] = True Then
WriteLn(i, '. Солнечный')
Else
WriteLn(i, '. Пасмурный')
End;
WriteLn('К концу 30 дня местоположение улитки равно ', a, ' см над землей');
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота