Компакт-диск
Вот так вроде бы
Я набираю номер телефона и он у меня входит или лучше что бы был отпечаток палец его можно поменять.
1 - в) Мышь.
2 - б) Монитор.
3 - в) Пиксель.
4 - г) Произведение количества строк изображения на количество точек в строке.
5 - а) Красного, синего, зелёного (RGB).
Var
a: integer;
begin
readln(a);
if a mod 10 = a div 100 then
writeln('TRUE')
else
writeln('FALSE');
<span>end.</span>
Var a:longint;
<span>b:string; </span>
<span>begin </span>
<span>writeln('Введите длину'); </span>
<span>readln(a); </span>
<span>writeln('Введите единицы измерения (метры/дециметры и т.д.)'); </span>
<span>readln(b); </span>
<span>if b='метры' then writeln(a, ' метров') </span>
<span>else if b='дециметры' then writeln(a/10, ' метров') </span>
<span>else if b='километры' then writeln(a*1000, ' метров') </span>
<span>else if b='миллиметры' then writeln(a/1000, ' метров'); </span>
<span>end.</span>