Помогите плизз. составить программу с
if then. в pascal abc. номер 3. срочно нужно. зарание спасибо.

1

Ответы и объяснения

Лучший Ответ!
2014-04-14T13:44:55+00:00
Var a, s: string;
i, w: integer;
begin
readln(a);
s:= a[1];
for i:= 2 to length(a) do
    if a[i] < s then
        s:= a[i];
val(s, i, w);
if i mod 2 = 0 then
   writeln('Не четная')
else
   writeln('Четная');
end.