Kochetova92
?>

известно что спортсмен пробежал 7 км В первый день каждый последующий день он пробегал на 500 м больше найти сколько он пробегал за N дней

Информатика

Ответы

stertumasova29
//Pascal ABC.NET v3.1 сборка 1172

//Ввод файла в текстовом редакторе
Var
 f:text;
 s:string;
 a:integer;
begin
 writeln('First file:');
 assign(f,'text.txt');
 reset(f);
 while not Eof(f) do
  begin
   read(f,a);
   write(a:4);
   if (a>8) or (a<6) then
 a:=sqr(a);
   s:=s+a+' '; 
 end;
 close(f);
 writeln;
 writeln('Final file:');
 write(s);
 assign(f,'text.txt');
 rewrite(f);
 write(f,s);
 close(f);
end.

Пример работы программы:
First file:
   1   2   3   4   5   6   7   8
Final file:
1 4 9 16 25 6 7 8 

//Ввод файла  программе

Var
 f:text;
 s,s1:string;
 a,i:integer;
begin
 assign(f,'text.txt');
 rewrite(f);
 for i:=1 to 10 do
 begin
  read(a);
  write(f,a); 
 s1:=s1+inttostr(a)+' ';
  if (a>8) or (a<6) then a:=sqr(a);
  s:=s+inttostr(a)+' ';
 end;
 close(f);
 writeln('First file:');
 writeln(s1);
 writeln('Final file:');
 write(s);
 assign(f,'text.txt');
 rewrite(f);
 write(f,s);
 close(f);
end.

Пример ввода:
1
2
3
4
5
6
7
8
9
10
Пример вывода:
First file:
1 2 3 4 5 6 7 8 9 10
Final file:
1 4 9 16 25 6 7 8 81 100 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

известно что спортсмен пробежал 7 км В первый день каждый последующий день он пробегал на 500 м больше найти сколько он пробегал за N дней
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

vintazhvintazh90
сузанна_Людмила
voropayelena26
Allahverdi_Мария475
aerendzhenova5
Староческуль-Станиславовна
damir
srvsm
kristi-a-90
Vladimirovich1898
ГармаеваЕкатерина1637
Mariya dmitrievna
orb-barmanager
makashi28
yurassolo747