Распечатать список учеников музыкальной школы, которые учатся играть на фортепиано

@Linar523 · Регистрация: 13.06.2012

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

Комбинированный тип данных. Распечатать список учеников музыкальной школы, которые учатся играть на фортепиано. Указать также, сколько лет они занимаются музыкой и принимали ли участие в каких-либо конкурсах.

@gerrard_1892 · 23.06.2012, 21:50

Pascal

program spisok;
type tsp=record
     fio:string[40];
     god:integer;
     kon:string[20];
end;
var sp:array[1..20] of tsp; i,n:integer;
begin
 writeln('Vvedite kolichestvo ychenikov:');
 readln(n);
 writeln('Kolichestvo ychenikov: ',n);
 for i:=1 to n do begin
  writeln('Vvedite FIO ',i,'-ogo ychenika:');
  readln(sp[i].fio);
  writeln('Vvedite, skolko let zanimayetsya ',i,'-y ychenik');
  readln(sp[i].god);
  writeln('Prinimal li ychenik ychastie v konkyrsakh?');
  readln(sp[i].kon);
  writeln('FIO: ',sp[i].fio,'; Skolko let zanimayetsya: ',sp[i].god,'; Prinimal li ychenik ychastie v konkyrsakh:',sp[i].kon);
 end;
end.

@Linar523 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 9
		1
	Распечатать список учеников музыкальной школы, которые учатся играть на фортепиано 22.06.2012, 15:54. Показов 1449. Ответов 1 Метки нет (Все метки) Комбинированный тип данных. Распечатать список учеников музыкальной школы, которые учатся играть на фортепиано. Указать также, сколько лет они занимаются музыкой и принимали ли участие в каких-либо конкурсах. 0

	23.06.2012, 21:50

Опции темы

Распечатать список учеников музыкальной школы, которые учатся играть на фортепиано

Решение