program numbers;
var x, y: integer;
begin
writeln('Введите число.');
read(x);
if (x mod 10)=(x div 10) then write('Цифры одинаковые') else write('Цифры разные');
end.
Разве это так сложно...
1. учитель или ученики нарисовали на доске рисунки и мальчик стирает их с доски
2. ученик собрал портфель и пошел по делам, другой зашел и готовиться к началу урока
3. девочка поливает цветы, незнаю относиться ли это к чему не будь
128<span> Гбит</span>/8=16 ГБайт
16ГБ=(16*1024)МБ=(16*2*512)МБ
х=16*2=32
Выбирай любой:
a := b * power(c, 2);
a := b * sqr(c);
a := b * exp(ln(с)*2) ;
a := b * (c * c);