№1. В электронной таблице значение ячейке D8 хранится значение формулы =СРЗНАЧ(А8:С8), равное 4. Чему равно значение =СУММ(А8:D8)?
№2. В электронной таблице значение ячейки F1 равно 9, значение формулы =СУММ(F1;F3) равно15, значение формулы =СРЗНАЧ(F1;F4), равно 10. Найдите значение формулы =СУММ(F2:F4)?
№3. В электронной таблице в ячейку F2 занесена формула =ПРОИЗВЕД(Е2; F1), ее значение равно 28. Найдите значение ячейки Е2, если значение формулы =СРЗНАЧ(F1;F2) равно
i,d,n,k:integer;
begin
Write('Введите трехзначное натуральное число: ');
Read(n);
k:=0;
for i:=1 to 3 do begin
d:=n mod 10;
if d mod 3=0 then begin
Inc(k);
Write(d,' ')
end;
n:=n div 10
end;
if k>0 then Write('- цифры, кратные трем')
else Write('Таких цифр нет')
end.
Примеры
Введите трехзначное натуральное число: 569
9 6 - цифры, кратные трем
Введите трехзначное натуральное число: 184
Таких цифр нет
Замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0.
Если это не так, то замените условие
d mod 3 = 0
на
(d mod 3 = 0) and (d>0)