Возвести в квадрат некоторые числа файла

@xersin · Регистрация: 29.11.2014

Студворк — интернет-сервис помощи студентам

Ввести файл F . Элементы файла, которые при делении нацело на
собственный индекс дают значение большее 2, возвести в квадрат (индексом
считать позицию элемента, увеличенную на единицу). Файл вывести до и
после преобразования.

@Netolyrg · 28.02.2015, 20:43

Если что-то неправильно, то поправьте меня, пожалуйста.

Pascal

Var
a :array[1..100] of integer; 
F :text;
i, n :integer;
Begin
assign(F, 'F.txt');
reset(F);
n:=0;
while not eof(F) do
   begin
   n:=n+1;
   read(F, a[n]);
   end;
close(F);
assign(F, 'F(new).txt');
rewrite(F);
for i:=1 to n do 
if a[i] div i >2 then write(F, sqr(a[i]), ' ');
close(F);
end.

@xersin 0 / 0 / 0 Регистрация: 29.11.2014 Сообщений: 12
		1
	Возвести в квадрат некоторые числа файла 28.02.2015, 13:46. Показов 1338. Ответов 1 Метки нет (Все метки) Ввести файл F . Элементы файла, которые при делении нацело на собственный индекс дают значение большее 2, возвести в квадрат (индексом считать позицию элемента, увеличенную на единицу). Файл вывести до и после преобразования. 0

Опции темы

Возвести в квадрат некоторые числа файла

Решение