Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
If (N mod 10)>k then sum:=sum+(N mod k);
N:=N div 10;
end;
end.
или так
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
sum:=sum+(N mod 10)*Ord((N mod 10)>k);
N:=N div 10;
end;
end.
или так
Var N,k : Integer;
Function sum(N,k : Integer) : Integer;
Begin
If (N>0) and ((N mod 10)>k) then sum:=(N mod 10)+sum(N div 10,k) else sum:=0;
end;
Begin
Readln(N,k);
Writeln(sum(N,k));
end.
Var
a, b: real;
begin
readln(a, b);
writeln('S=', a * b);
writeln('P=', 2 * (a + b));
end .
Мне это мама сказала если что-то не правильно скажи,исправлю
1. Комплекс технических средств
2. Программное обеспечение
3. Система обработки и хранения(Информационная система)
4. Организационное обеспечение
read(n);
if (n>99) and (n<1000) then writeln('Yes');
график дежурств, таблица по физике, информатике