Контрольная работа: Программирование решения задач

st[i] := st[j];

st[j] := tmp;

end;

writeln('enter pr');

readln(pr);

for i := 1 to length(pr) do

for j := i to length(pr) do

if pr[i] > pr[j] then

begin

tmp := pr[i];

pr[i] := pr[j];

pr[j] := tmp;

end;

writeln(st);

writeln(pr);

write('dly vuhoda nagmite 0, esli prodolgit to 1');

readln(a);

if a=0 then break

until false

end.

Рис. 9. Результаты работы программы для задачи 9

Задача №10

В файле целых чисел заменить все четные натуральные числа их квадратами.

Решение

program Project1;

//uses SysUtils;

var

n, i, tmp : integer;

Fin, Fout : text;

begin

assignfile(Fin, 'in.txt');

ReSet(Fin);