0123456789ABCDE
................................
{тоже как вариант}
const
v: array [0..9] of integer = (1,0,0,0,1,0,1,0,2,1);
var
x,n: integer;
begin
read(x);
n := 0;
repeat
n := n + v[x mod 10];
x := x div 10;
until x = 0;
write(n)
end.
Все нули . потому что 00 . 001 и т.п. считаются за 1клб
Var x,y:integer;
begin
readln(x);
y:=(x mod 7)+(x+1) mod 7+(x+2) mod 7+(x+3) mod 7+(x+4) mod 7+(x+5) mod 7+(x+6) mod 7;
writeln(y div 3);
end.
Пример:
19346
7
Var a,b,c,d,m,n:real;
begin
writeln('Введите размеры комнаты (a,b)');
readln(a,b);
writeln('Введите размеры окна (с,d)');
readln(c,d);
writeln('Введите размеры двери (m,n)');
readln(m,n);
writeln('Площадь для оклейки: ',a*b-c*d-m*n);
end.