Язык программирования: Паскаль
а)
var
m, n : integer;
begin
readln (m);
readln (n);
if m > n then
writeln ('Первый пакет тяжелее');
if n > m then
writeln ('Второй пакет тяжелее');
end.
б)
var
m, n : integer;
begin
readln (m);
readln (n);
if m > n then
writeln ('Вес более тяжёлого пакета равен ', m, ' кг');
if n > m then
writeln ('Вес более тяжёлого пакета равен ', n, ' кг');
end.
Комплекс программ:
- обеспечивающих обработку или передачу данных;
- предназначенных для многократного использования и применения разными пользователями.
<span>С:\
</span>С:\мои документы
С:\<span>фильмы
</span>С:\фильмы\<span>интересный фильм.avi
</span>С:\мои документы\иванов
С:\мои документы\<span>петров
</span>С:\мои документы\иванов\<span>QBasic.exe
</span>С:\мои документы\иванов\<span>рисунки
</span>С:\мои документы\иванов\рисунки\<span>море.bmp
</span>На будущее, перефоткай страницу с этим заданием. Так ничего не понятно.
Тебя спасло, что она у меня на диске завалялась. Без той картинки это невозможно.
