строка t равна синхрофазотрон написать алгоритм программу составления слов фазан фотон роза

261

431

Посмотреть ответы 1

Ответы на вопрос:

marmeladkina

Информатика

4,7(32 оценок)

Var f: text; s,d: string; i,n: integer; a: array of integer; beginassign(f,'c: \\q\t.txt'); reset(f); n: =3; setlength(a,n); while not eof(f) do begin readln(f,s); writeln(i: 2,' ',s); end; close(f); writeln; var arr : = s.split('; '); for i: =0 to n-1 do begina[i] : = strtoint(arr[i]); if a[i] > 0 then a[i]: = a[i] *a[i]; end; for i: =0 to n-1 dod: = d + inttostr(a[i]) + '; '; assign (f,'c: \\q\out.txt'); rewrite(f); write(f,d); close(f); end.