Дано натуральное число

[RAVEN23]

Помогите написать програмки на паскаль!!! очень срочно!!!
Дано натуральное число:
В)верно ли, что єто число четырехзначное? Составное условие и вложеннный оператор не использовать.
е)верно ли, что сумма его цифр больше m, а само число делитсяна n?

[ViNcHeStEr]

В) так чтоли?

if (chislo>999) and (chislo<10000) then write('Chislo 4h znachnoe');

[NSvirus]

Так?:

for i:=1 to length(chislo) do
sum:=sum+Chislo[i];
if sum>m then writeln('verno');

[fbus]

че-т походу сюда люди начали писать просто так.. потому что лень самим паскаль открыть... это ж проще не бывает

[ViNcHeStEr]

е)

var
 chislo,sum,i,m,n:integer;
 c:string;
begin
 write('m: ');readln(m);
 write('n: ');readln(n);
 write('chislo: ');readln(chislo);
 c:=inttostr(chislo);
 sum:=0;
 for i:=1 to length(c) do
  begin
   sum:=sum+strtoint(C[i]);
    if sum>m then writeln('SUMMA>M');
  end;
  if (chislo mod n)=0 then write('CHISLO/N BEZ OSTATKA');
 readln;
end.

[RAVEN23]

Сообщение от fbus

че-т походу сюда люди начали писать просто так.. потому что лень самим паскаль открыть... это ж проще не бывает

Просто задачи на числа я не выкупаю