Информатика/Turbo Pascal 10ти клас

[wannago0]

Здравейте, имам няколко задачки по информатика, които трябва да са направени на Turbo Pascal, но мен,.. леко ме затрудняват. Трябва да се напише програма. ако може да ми помогнете, ще съм ви задължена! (: :
1.Определете броя на цифрите на числото N
2. Да се намерят минималното и маскималното число след 3 въведени числа
3. Програма за размяна стойностите на две променливи

[Chacho]

Задача 1.

program asdf;

var

n, count: integer;

begin

write('n=');
readln(n);

count:=0;

while not (n=0) do
begin
count:=count+1;
n:=n div 10;
end;

writeln('count=', count);
readln;

end.

2 задача

program asdf;

var

a,b,c,max,min: integer;

begin

write('a=');
readln(a);
write('b=');
readln(b);
write('c=');
readln(c);

max:=a;
min:=a;

if min>b then
min:=b;
if min>c then
min:=c;

if max<b then
max:=b;
if max<c then
max:=c;

writeln('min=', min);
writeln('max=', max);
readln;

end.

3 задача

program asdf;

var

a,b,c: integer;

begin

write('a=');
readln(a);
write('b=');
readln(b);
c:=a;
a:=b;
b:=c;

writeln('a=', a);
writeln('b=', b);
readln;

end.

Компилирани и тествани под някъв онлайн компилатор: http://www.onlinecompiler.net/pascal