Question

ДАЮ 100 БАЛЛОВ
Помогите написать код в PascalABC! Очень нужно.

Answer 1

Ответ:

Объяснение:

const h = 24;

c = 5;

var s,k:integer;

begin

write('Введите сумму, которую Вы готовы потратить: ');

read(s);

k := (s div h) + (s div h div c);

write('Количество шоколадок: ',k);

end.

Answer 2

Ответ:

program z1;

var s,h,k:integer;

begin

write('Введите сумму, которую готовы потратить: ');

readln(s);

write('Введите стоимость 1 шоколадки: ');

readln(h);

k:=s div h;

write('Ответ: ',k,' + ',k div 5,' в подарок = ');

k:=k+k div 5;

write(k,' шоколадок')

end.

Объяснение:

картинка

Вводим сумму, которую готовы потратить, и стоимость 1 шоколадки

Вычисляем сколько можем купить шоколадок на эту сумму

Вычисляем сколько шоколадок получим вместе с подарочными

Выводим общее количество шоколадок