var c,m,t1,t2,q: integer;
begin
write('Введите c ');
readln(c);
write('Введите m ');
readln(m);
write('Введите t1 ');
readln(t1);
write('Введите t2 ');
readln(t2);
q:=c*m*(t2-t1);
writeln('количества теплоты ',q);
Я не знаю но может вот это поможет?
Алфавит для составления номера содержит 26+10 = 36 символов.
2⁵ < 36 < 2⁶, поэтому для кодирования каждого символа потребуется 6 бит.
Шестисимвольный номер можно закодировать с помощью 6×6 = 36 бит, но он должен занимать целое количество байт. 36/8=4.5, т.е. потребуется 5 байт. Ну а 60 номеров потребуют 5×60=300 байт.
Ответ: 300
Var
s:string;
begin
readln(s);
if s[1]=s[length(s)] then write("Yes");
else write("No");
end.
Слева на право в три строки: 1,5,10,9,2,11,12
3,4,14,8,13
6,7,15