XYX, где X - комбинация из 7 букв, Y 1 буква
Таких комбинаций бывает 256 шт
2^15-256 = 32512
Var a,b: integer;
begin
readln (a,b);
if (a mod 2 = 0) then writeln ('Число ',a, ' чётное.') else writeln ('Число ',a, ' нечётное.');
if (b mod 2 = 0) then writeln ('Число ',b, ' чётное.') else writeln ('Число ',b, ' нечётное.');
<span>end.</span>
0,5 Кбайт = 4096 бит
4096:8=512
(8 бит - вес одного символа)
<h2>Задание 1</h2>
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if x mod 2 = 0 then
- Writeln('ЧИСЛО ', x, ' ЧЁТНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' НЕЧЁТНОЕ');
- end.
<h2>Задание 2</h2>
Здесь стоит ввести ограничение на ввод, т.к если пользователь введёт x (x >= 100), то программа укажет, что это тоже двузначное число.
- program task31143737;
- var x: integer;
- begin
- x := ReadlnInteger('ВВЕДИТЕ ЧИСЛО n = ');
- if ((x > 9) or (x < -9)) then
- Writeln('ЧИСЛО ', x, ' ДВУЗНАЧНОЕ')
- else
- Writeln('ЧИСЛО ', x, ' ОДНОЗНАЧНОЕ');
- end.
Подскажите пожалуйста!!! Нужно составить слова в которых:- буквы: в, е, с, т, о.- буквы: с, е, р, д, а.- буквы а, л, о, м, с- бу
Леди Винтер
<span>- буквы: в, е, с, т, о: отвес, отсев
- буквы: с, е, р, д, а: среда, адрес
- буквы а, л, о, м, с: масло, смола
- буквы а, к, п, я, т: пятка, пятак, тяпка</span>