Кол-во эскимо - 6
Осталось порций - 16
стаканчиков осталось - 15
Нада число представить двоичными триадами 45107(8)
100 101 001 000 111, затем с<span>права налево разбить на двоичные тетрады по 4 разряда и записать алфавитом 16сс
0100 1010 0100 0111=4А47</span>
Готово :)
..............................
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.