begin s := ''; m := 0; n := 0; min := 10; writeln('Введите число'); repeat read(c); s := s + c; i := StrToInt(c); if i mod 2 = 0 then if c <> '0' then m := m + 1; // для задания 2) n := n + 1; if i < min then min := i until c = '0'; writeln('Введено число ', s, ', в нем четных цифр- ', m) end.
program Ex2;
var s: string; i, d, n, min: integer;
begin min := 10; writeln('Введите число'); readln(s); n := length(s); for i := 1 to length(s) do begin d := StrToInt(s[i]); if d < min then min := d end; writeln('Введено число ', s, ', в нем цифр- ', n, ', минимальная- ', min) end.
101×101+11×11=10322
1001×1001-121=1001880
11×11×10×10=121×100=12100