fork download
copy 
  1. ok:=1;
  2. for i:=1 to n do begin
  3. if (spis[i].god_izd<=(1960)) and (spis[i].god_izd>=(1970)) then  begin
  4.  with spis[i] do begin
  5.      spis2[ok].fio:=fio;
  6.      spis2[ok].shifr:=shifr;
  7.      spis2[ok].nazv:=nazv;
  8.      spis2[ok].god_izd:=god_izd;
  9.      ok:=ok+1;
  10.  end;
  11. end;
  12. end;
  13. n:=ok-1;
  14. writeln('ФИО ШИФР НАЗВАНИЕ ГОД ИЗДАНИЯ');
  15. for i:=1 to n do
  16.  with spis2[i] do
  17.    writeln(FIO,'  ',shifr,'  ',nazv,'   ',god_izd);
Not running #stdin #stdout 0s 0KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/GDl57s
language:
Pascal (gpc 20070904)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!