Формулу =b1+$a$2-3*c$2+$c3 из ячейки а4 скопировали в ячейку b4. какая формула будет в ячейке b4?

Question

Информатика: Формулу =b1+$a$2-3*c$2+$c3 из ячейки а4 скопировали в ячейку b4. какая формула будет в ячейке b4?

НИК211111 · Accepted Answer

1. Вариант современного решения
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('Число четных цифр равно ',
    abs(ReadInteger('n=')).ToString.Where(c->c.ToDigit.IsEven).Count)
end.

Пример
n= 363754345
Число четных цифр равно 3

2. Вариант "школьного решения" в синаксисе ТурбоПаскаль 1983г.

program TP70;
uses Crt;
var
n:longint;
k,d:byte;
begin
ClrScr;
Write('n= '); Read(n);
n:=abs(n);
k:=0;
while n>0 do begin
    d:=n mod 10;
    if d mod 2=0 then Inc(k);
    n:=n div 10
    end;
Writeln('Число четных цифр равно ',k);
ReadKey;
end.

MOGZ ответил