Const
n = 30;
var
fin, fout: Text;
s: string;
begin
Assign(fin, 'input.txt');
Reset(fin);
Assign(fout, 'output.txt');
Rewrite(fout);
while not eof(fin) do
begin
readln(fin, s);
if length(s) > n then writeln(fout, s)
end;
Close(fin);
Close(fout)
end.
247,128,346,427...выбирай любое.
Я мало чего понял из условия. Если я правильно понял, то мы вводим 15 чисел, и хотим чтобы компьютер нам выдал только нечтные их них.
Вот эта программа работать не будет по любому хотя бы из-за того, что на строке с меткой 50 стоит <u>NEXT</u>, хотя команды <u>FOR</u> до этого не было - ошибка.
Я написал програмку так как я понял с нечетными числами:
CLS
DIM a(15)
FOR i = 1 TO 15
INPUT a(i)
NEXT i
FOR i = 1 TO 15
IF (INT(a(i) / 2)) <> (a(i) / 2) THEN PRINT a(i)
NEXT i
END
Var ar:array[1..5] of integer;
i:integer;
s:real;
begin;
for i:=1 to 5 do
begin;
readln(ar[i]);
s:=s+ar[i];
end;
s:=s/5;
writeln('Среднее арифметическое:',s);
writeln('Result:');
for i:=1 to 5 do
if ar[i]>s then write(ar[i]:4);
end.
While - один из самых универсальных циклов в Python, поэтому довольно медленный. Выполняет тело цикла до тех пор, пока условие цикла истинно.
>>> i = 5
>>> while i < 15:
... print(i)
... i = i + 2
...
5
7
9
11
13