Вопрос Помогите пожалуйста, завтра экзамен . Нужны все эти задачи на паскале

[ДАМИР23]

1,2,7,3 уже решены. Помогите с остальными пожалуйста

 

[Альберт-02-1999]

Задачи проще некуда. Лучше попробуй сама, раз экзамен. Там в задачах div и mod - гуглится на раз.

 

[Trololo4ko]

{4-е задание} var a:integer;
begin
readln(a);
if a > 0 then writeln('Введено положительное ',length(IntToStr(a)),'-x значное число.')
else writeln('Введено отрицательное ',length(IntToStr(a))-1,'-x значное число.')
end.

 

[есаррп]

4-ое на стероидах в 2 строчки:

readln;
Writeln(trunc(ln(abs)/ln(10))+1,'-значное'

 

[wakcuwka]

5)
program p5;
var n,k,i,s:integer;
begin
write('n: ' readln; s:=0;
for i:=1 to n do begin read(k); s:=s+k*ord((k>-100)and(k<-9)) end;
writeln(s);
end.

6)
program p6;
var k,s:integer;
begin
readln(k); k:=abs(k);
s:=k div 1000+k div 100 mod 10+k div 10 mod 10+k mod 10;
writeln(s);
end.