1. Что такое файл? 2. Из каких частей состоит имя файла? 3. Какие правила записи имени файла следует соблюдать? 4. Опишите систему хранения файлов на диске. 5. Какие действия можно совершать с файлами? 6. Каких действий следует избегать при работе с файлами?
Алгоритм ищет НЕЧЕТНОЕ число КРАТНОЕ 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.