Информатика , паскаль
Задача:
Чтобы быть всегда чистым, человеку нужно х (24≤х≤50) кусков мыла в год. Если мыть только пяти, то мыла понадобится в 12 раз меньше, а только уши - еще на 1 кусок меньше. Составить программу, которая по выбору пользователя давала ответ количество кусков мыла необходимо закупить на n лет вперед, чтобы: мыться полностью; мыть только пятки;мить только уши;мыть пятки и уши
Задача:
Чтобы быть всегда чистым, человеку нужно х (24≤х≤50) кусков мыла в год. Если мыть только пяти, то мыла понадобится в 12 раз меньше, а только уши - еще на 1 кусок меньше. Составить программу, которая по выбору пользователя давала ответ количество кусков мыла необходимо закупить на n лет вперед, чтобы: мыться полностью; мыть только пятки;мить только уши;мыть пятки и уши
More Questions From This User See All
Answers & Comments
Ответ:
var x1:real:=24;
x2:real:=50;
N:real;
begin
write('Введите число лет: '); readln(N);
var A:=((x1/12).Round*N,(x2/12).Round*N);
var B:=(((x1/12).Round-1)*N,((x2/12).Round-1)*N);
writeln('Для мытья полностью нужно ',x1*N,'-',x2*N,' кусков мыла');
writeln('Для мытья одних пяток нужно ',A[0],'-',A[1],' кусков мыла');
writeln('Для мытья одних ушей нужно ',B[0],'-',B[1],' кусков мыла');
writeln('Для мытья пяток и ушей нужно ',A[0]+B[0],'-',A[1]+B[1],' кусков мыла');
end.
Объяснение:
В программе использован метод кортежей (Tuple): A и В - переменные с двумя ячейками под запись. Значения внутри них нельзя изменить, однако можно считать, подобно обращению к массиву. При том следует помнить, что нумерация индексов (адресов ячеек) начинается с нуля. Используя B[0] мы обращаемся к первому его значению, то есть к выражению ((x1/12).Round-1)*N.