Вот это скопируйте и вставьте.
program chdast;
var a : integer;
begin
write('Введите двузначное число');
read(A);
if (a mod 10)=(a div 10) then writeln('цифры равны по значению');
if (a mod 10)>(a div 10) then writeln('вторая цифра больше первой');
if (a div 10)>(a mod 10) then writeln('первая цифра больше второй' );
end.
Dim x As real
Dim i As integer
INPUT x
FOR i=1 TO 30
x=x+(x*0.05)
NEXT i
PRINT x
END
П.С. не большая поправка верхнего решения, спасибо автору верхнего поста
Дискета, кассета, лазерный диск... Что-то из этого. Дискеты были на 5 и 3,5 дюйма
Лллмммлткмлткм
л- луковица
м- морковка
т-тыква
к-капуста
1 символ = 1 байт, посчитай сколько букв в твоей фамилии, имени и отчестве. Сколько букв столько и байт. Например: имя "Матвей" состоит из 6 букв, значит 6 байт.
1 байт = 8 бит, поэтому те байты которые у тебя получились ранее умножь на 8. Например: имя "Матвей" составляет 6 байт, умножаем на 8 = 48 бит.
64 символа умножаем на 36 строк умножаем на 600 страниц = 1382400 символов.
скорость измеряется в килобайтах, переводим байты в килобайты (1 кб = 1024 байт): 1382400 делим на 1024 = 1350 килобайт. Скорость 64 кб / сек.
1350 делим на 64 = 21,09375 секунд. Можно округлить: 21 секунду.