Смотрим на прилагаемую картинку. Первая строка - разряды, т.е показатели степени двойки. Вторая - значения степеней двойки, например, 2^8=256 В третьей строке делаем вычисления. Записали исходное число 994. Смотрим ближайший разряд - девятый - там 512. 994>512, значит такая степень двойки в числе 994 содержится. Пишем в девятом разряде следующей строки 1, а рядом с 994 (в 9 разряде пишем остаток 994-512=482. Повторяем процесс. В 8 разряде записано 256. 482>256. Снова 1 в четвертую строку и разность 482-256=98 в соседний, 7 разряд. Так продолжается, пока не дойдем до 5 разряда. У нас там число 2, а в соседнем разряде 16. 2>16, поэтому разряд пропускаем, а в 4й строке пишем ноль. Так поступаем, пока не придем в разряд 1. 2=2, поэтому делаем вычитание, пишем 1 в 4ю строку, а в третьей пишем, как всегда, разность 2-2=0. Все. Остальные разряды четвертой строки заполняем нулями. Двоичное представление числа - это 4-я строка.
1. var x:integer; y:real; begin write('Введите значение аргумента "X" : '); readln(x); y:=3*cos((5*x)); writeln('Значение функции "Y" = ',y); readln; end.
2. var x,b:integer; begin write('Введите количество молока, полученного за день, л : '); readln(x); write('Введите количество дней : '); readln(b); writeln('Количество молока, полученного за заданный промежуток времени = ',x*b); readln; end.
3. var a,b,c:integer; begin write('Введите двузначное число: '); readln(a); b:=a div 10; c:=a mod 10; writeln(b,#10,c); end.
4. var b:integer; a:longint; begin write('Введите целое число: '); readln(a); b:=a div 100 mod 100; writeln(b); readln; end.
5. var a,b:integer; begin write('Введите числа : '); readln(a,b); if a and b mod 2=0 then writeln(a+b); if a and b mod 2<>0 then writeln(a*b); readln; end. {Про последнее "Иначе", увеличьте все числа в пять раз и выведите результаты" не очень понялЕсли оба чётные - сумма, если оба - нечётные - то произведение. А если иначе, то число должно быть равно нулю. Смысл увеличивать его в пять раз?)}
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку