помогите плизз. составить программу с
if then. в pascal abc. номер 3. срочно нужно. зарание спасибо.
if then. в pascal abc. номер 3. срочно нужно. зарание спасибо.
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.