Две задачи в Паскале

[Стасссс]

Здравствуйте уважаемые программисты форума, я нуждаюсь вв вашей помощи. Вот тут 2 задачки:
1) Дана строка символов, требуется выяснить состоит ли она из одних цифр или в ней имеются другие символы. Вывести соответсвующее сообщение на экран.
2)Даны 2 числа А и В. Найти наименьший общий делитель.

[Stilet]

состоит ли она из одних цифр или в ней имеются другие символы

Ну проверяй посимвольно в цикле, пока не встретишь букву, тогда выход из цикла и сообщение мол нет, не состоит...

)Даны 2 числа А и В. Найти наименьший общий делитель.

Ну-у-у... Это тут уже обсуждалось.

[Sazary]

1)
Идете в цикле по строке. Если текущего символа нет в множестве [0..9], то выводим сообщение, что тут не только цифры.
Выглядеть будет как-то так:

for i:=1 to length(s) do
 if not (s[i] in [0..9]) then
  begin
  writeln('Тут не только цифры');
  break;
  end;

2) Ну уж это обсуждалось столько раз...
Вбейте в поиск "НОД".

И, кстати, наименьший общий делитель это единичка

ps Не успел )

[maladoy]

2 задача пост №3

[__STDC__]

1.

for i:=1 to length(str) do
   if not(str[i] in ['0'..'9']) then begin
      writeln('Letter was found!');
      break;
   end;

***
ппц... не успел...