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

@Бибулат · Регистрация: 28.05.2012

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

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

Kodzaev · 29.05.2012, 22:13

Pascal

Uses crt; 
 Type 
 book=Record 
 fam: String; 
 pred: String; 
 st: Byte; 
 nagr: Byte; 
 end; 
 Var 
 x: Array [1..20] of book; 
 i,n: Integer; 
 BEGIN 
 Clrscr; 
 Writeln('Введите кол-во учителей: '); Readln(n); 
 For i:=1 to n do 
 begin 
    Write('Фамилия учителя: '); Readln(x[i].fam); 
    Write('Предмет: '); Readln(x[i].pred); 
    Write('Стаж: '); Readln(x[i].st); 
    Write('Нагрузка: '); Readln(x[i].nagr); 
 end; 
 Writeln('Список тех учителей школы, которые преподают математику и информатику:'); 
 For i:=1 to n do 
 If (x[i].pred='Математика') or (x[i].pred='Информатика') Then 
 begin 
    Writeln(x[i].fam); 
    Writeln(x[i].st); 
    Writeln(x[i].nagr); 
    Writeln('--------'); 
 end; 
 Readln 
 END.

@Бибулат 0 / 0 / 0 Регистрация: 28.05.2012 Сообщений: 7
		1
	Распечатать список тех учителей школы, которые преподают математику и информатику, указать стаж их работы и недельную нагрузку 29.05.2012, 21:44. Показов 7765. Ответов 1 Метки нет (Все метки) Распечатать список тех учителей школы , которые преподают математику и информатику, указать стаж их работы и недельную нагрузку,, сделай те кто знает у меня зачет завтра на эту задачу,, 0

	29.05.2012, 22:13

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

Решение