Алгоритм ищет НЕЧЕТНОЕ число КРАТНОЕ 13.
Чтобы остановить цикл, ввели переменную flag.
Когда условие выполнилось flag должно задаться значение 1.
Объяснение:
Алгоритм ищет НЕЧЕТНОЕ число КРАТНОЕ 13
Когда условие выполняется (находят нечетное число кратное 13), то цикл останавливают.
Чтобы остановить цикл, ввели переменную flag которая обозначает выполнение условия.
Когда условие выполнилось, то flag должно задаться значение вызывающие остановку цикла (в данной программе это число 1 которое присваивается flag).
язык программирования любой?
пишу на Python:
s = str(input())
s = sorted(s[:len(s)-1].split(', '))
for word in s:
print(word, ' ', end='')
Pascal:
var s, copy_s, word_s:string;
i, n, count:integer;
a:array of string ;
begin
count:=0;
write('Введите перечисление слов через запятую без пробелов, в конце поставьте точку: ');
readln(s);
copy_s:= s;
while pos(',', copy_s) > 0 do begin
n:= pos(',', copy_s);
delete(copy_s, n, 1);
count:=count+1;
end;
count:= count + 1;
SetLength(a, count);
for i:=1 to count-1 do begin
n:= pos(',', s);
word_s:= copy(s, 1, n-1);
delete(s, 1, n);
a[i]:=word_s;
end;
word_s:= copy(s, 1, length(s)-1);
a[count]:= word_s;
for i:=1 to count-1 do
if a[i] > a[i+1] then begin
word_s:=a[i];
a[i]:=a[i+1];
a[i+1]:=word_s;
end;
for i:=1 to count do
writeln(a[i]);
end.
t1,t2:text;
begin
assign(t1,'in.txt');
reset(t1);
read(t1,min);
max:=min;
for i:=1 to 4 do
begin
read(t1,a);
if a<min then min:=a;
if a>max then max:=a;
end;
close(t1);
assign(t2,'out.txt');
rewrite(t2);
writeln(t2,min);
writeln(t2,max);
close(t2);
end.
Пример:
in.txt:
5 2 9 7 3
out.txt:
2
9