Нужно решить на паскале
При нагревании куска меди от T1 °С до T2°С было затрачено Q КДж тепла (все эти данные вводит
пользователь). Определить массу меди.
Для справки: Удельная теплоемкость меди при 20°: С = 400 Дж/кг*С (описать как константу)
Не забудьте в программе перевести КДж в Дж!
готово. паскаль
Объяснение:
Задание 1
с = 0
Задание 2
var
n, m, c: integer;
begin
Write('Введите числа m и n >> ');
ReadLn(m, n);
if (m mod 5 <> 0) or (m < n) then
c := (m mod 10) + (n mod 10);
WriteLn('Сумма последних цифр этих чисел равна ', c);
end.
Задание 3
var
a, b, c: integer;
begin
Write('Введите числа a, b и c >> ');
ReadLn(a, b, c);
if (b < 50) and (b > 20) and (c < a) then
begin
WriteLn('Сумма этих чисел равна ', a + b + c);
WriteLn('Произведение этих чисел равно ', a * b * c);
end;
end.
"Я самый главный!"- заявил монитор, на мне возникает информация и изображения.
"Нет, я самая главная,- сказала клавиатура, без меня никак, не сможешь ничего оттреадактировать,вбить информацию в память, общаться - да вообще ничего!"
Но память возразила : " Ээх вы, я тут главнее всех, как вы без меня! Ничего не сохранишь, не запомнишь, да в общем без меня очень сложно что-то представить!"
"Да вы что? - начал возмущаться процессор, - Главных не должно быть, мы все представляем собой одно целое!" Так они и воссоединились и представляют собой одну частичку главного .