влад20491
10.10.2022 15:43

Чему будет равна переменная «c» после выполнения программы: a := 24; b := 5; b := a div b + b; c := a mod b + a; *

2. Чему будет равна переменная «c» после выполнения программы: a := 26; b := 6; c := a mod b + b;

3. Чему будет равна переменная «c» после выполнения программы: a := 24; b := 5; b := a mod b + 4; c := a mod b + 1; *

4. Чему будет равна переменная «c» после выполнения программы: a := 22; b := 4; b := a mod b; c := a div (b + 1); *

5. Определите значение переменной «a» после выполнения фрагмента программы: a := 10; if a > 5 then a := 12; *

6.Определите значение переменной «a» после выполнения фрагмента программы: a := 10; if a < 5 then a := a + 12 else a := a - 7; if a < 5 then a := a + 12 else a := a - 7; *

7. Определите значение переменной «a» после выполнения фрагмента программы: a := 10; b := 5; if (a > 5) and (a < b) then a := a - 5; *

8. Определите значение переменной «a» после выполнения фрагмента программы: a := 10; b := 5; if (a > 1) or (a < b) then a := a - 5; if (a > 1) and (a = b) then a := a - 5; *

9. Определите значение переменной «a» после выполнения фрагмента программы: a := 10; b := 5; if (a > 1) and (a < b) then a := a - 5; if (a > 1) and (a = b) then a := a - 5; *

10. Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 3? a := 10; b := 5; if (a < 1) ... (a > b) then a := a - 7 else a := a + 7; *

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Zenkinadasha
20.01.2023 16:27
Program Pro1;
type Date = record 
day : 1..31; 
mounth : 1..12; 
year : integer; 
end; 
Person = record 
SurnameName : string; 
Birthday : date; 
end; 
ListOfPeople = array [1..50] of person;
var
People: ListOfPeople;
JoungHuman: Integer;
i, JoungHumanIndex: Byte;
begin
for i:=1 to 50 do
begin
Write('Human '+IntToStr(i)+':')
Write('Input Surname and Name:')
ReadLn(People[i].SurnameName);
Write('Input Birthday date(day, mounth, year):')
Read(People[i].Birthday.day, People[i].Birthday.mounth, People[i].Birthday.year);
end;

//
JoungHumanIndex:=1;
//
JoungHuman:=People[1].Birthday.day + People[1].Birthday.mounth*13 + People[1].Birthday.year * 32 * 13;

for i:=2 to 50 do
if JoungHuman> People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13 then
begin
//
JoungHumanIndex:=i;
//
JoungHuman:=People[i].Birthday.day + People[i].Birthday.mounth*13 + People[i].Birthday.year * 32 * 13;
end;

WriteLn('Most joung human: '+People[JoungHumanIndex].SurnameName);
end.
0,0(0 оценок)
Ответ:
BLAID1
29.05.2020 04:49
1. Записать двоичное число так, чтобы над ним сверху было место.
2. Над каждой двоичной цифрой (нулем или единицей) записать справа налево числа, начиная с единицы, при этом каждая последующая цифра должна равняться удвоенной предыдущей, т.е. цифры будут 1, 2, 4, 8, 16, 32, 64, ...
3. Сложить между собой те написанные числа, под которыми окажутся единицы из двоичной записи числа.
4. Полученная сумма - эквивалент двоичного числа в десятичной системе счисления.

Пример:

64 32 16 8 4 2 1
1    0  1  0 1 1 0
Складываем: 64+16+4+2=86.
1010110(2)=86(10)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота