var
i, si, N, ss: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (N);
s := IntToStr (N);
ss := 0;
for i := 1 to Length (s) do begin
si := StrToInt (s [i]);
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
// второй вариант решения
var
si, N, ss: Integer;
begin
Write ('Введите N: ');
ReadLn (N);
ss := 0;
while N > 0 do begin
si := N mod 10;
N := N div 10;
if si mod 4 <> 0 then
ss := ss + si;
end;
Writeln ('Сумма цифр = ' + IntToStr (ss));
end.
Предлагаю вариант в Excel
щелкая мышью треугольнички фильтра можно управлять таблицей
так понимаю это не степени, а система счисления. Переведем в десятичную и сравним.
1110^2 = 14
12^8 = 10
Ответ: 1110^2 > 12^8
Var i,k,x,y,l,m,s:integer;
begin
readln(k);
readln(x);
readln(y);
readln(l);
readln(m);
for i:=1 to k do
begin
s:=x*l;
x:=x+y;
l:=l+m;
end;
writeln(s);
end.
Если нужно, переменные можно вводить в 1 строку через пробел, записав так: readln(a,b,c,d)
СРЗНАЧ(B2:D2) = (b2 + c2 + d2)/3 = 6
СУММ(B2:E2) = b2 + c2 + d2 + e2 = 20
b2 + c2 + d2 = 6*3 = 18
b2 + c2 + d2 + e2 - (b2 + c2 + d2) = 20 - 18 = e2 = 2
Ответ: значение ячейки e2 равно 2.