Имеет ли введенное и перевернутое число одни и те же делители (Pascal)

16 - 2^4 - 4 бита = 0.5байт

256 - 2^8 - 8 бита = 1байт

128 - 2^7 - 7 бита

4 - 2^2 - 2 бита = 0.25байт

512*1024*8 =  4`194`304 бит

640*480 = 307`200 бит

4 - 6

16 - 3

128 - 1

256 - 1

№1

program z1;

var n: integer;

begin

write ('введите число n: ');

readln(n);

if (n mod 2 = 0) and (n div 100 < 1) and (n > 9) then write('данное число является четным двузначным') else if  (n div 100 < 1) and (n > 9) then write ('данное число не четное двузначное');

end.

№2

program z2;

var a, b, c, k: integer;

begin

k: =0;

writeln ('введите числа a, b и c: ');

readln(a,b,c);

if a< 0 then k: =k+1;

if b< 0 then k: =k+1;

if c< 0 then k: =k+1;

write('количество отрицательных чисел: ',k)

end.

запихнуть тепловоз и пассажирский вогон

дать грузовому проехать.

выехать из тупичка

грузовой возвращается до тупичка

грузовой тепловоз задом запихивает оставшиеся 2 вагона пассажирских в тупичек

грузовой уезжает

пассажирский прицепляет 2 вагона и уезжает

я буду писать часть предложения, а внизу табличку, чтобы понятнее было))

набрать 9 литров в первую ёмкость.

1. 9 л       2. 0л (пока что) 

перелить 5 литров во вторую ёмкость.

1.4 л       2. 5л

из второй ёмкости вылить всю воду

1.4л         2. 0л

и из первой ёмкости перелить во вторую ёмкость оставшиеся 4 литра.

1.0 л       2. 4л

набрать полную первую ёмкость

1. 9л     2. 4л

и из неё перелить во вторую 1 литр.

1. 8л     2. 5л

воду из второй емкости вылить

1.8 л     2. 0л

и из 8 литров воды в первой ёмкости перелить во вторую ёмкость 5 литров

1. 3л     2. 5л

вот и