Известны оценки каждого из 18 учеников по трем предметам,найти количество троек у каждого ученика

@OmgMorty · Регистрация: 03.02.2012

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

известны оценки каждого из 18 учеников по трем предметам,найти:количество троек у каждого ученика.

@Stasy1 · 09.02.2012, 20:48

воот, у меня такая же задача на завтра, я не понимаю вообще:О

@OmgMorty · 09.02.2012, 20:50 **[ТС]**

да ваще хана еще никто не помогает а тебе скоко задач уже помогли сделать?

@Севак · 09.02.2012, 21:14

OmgMorty,

Pascal

uses crt;
var
a,b,c: array [1..18] of integer;
i,k: integer;
begin
k:=0;
for i:=1 to 18 do begin
writeln;
writeln('Введите оценки ',i,' ученика: ');
read(a[i], b[i], c[i]);
if (a[i]=3) or (b[i]=3) or (c[i]=3) then begin
inc(k);
end;
if ((a[i]=3) and (b[i]=3)) or ((b[i]=3) and (c[i]=3)) then begin
inc(k);
end;
if (a[i]=b[i]) and (b[i]=c[i]) and (a[i]=3) then begin
inc(k);
end;
writeln('Троек - ',k);
end;
end.

так пойдет?

@OmgMorty · 09.02.2012, 21:21 **[ТС]**

ооо спасиб ну я немного там подкорректирую как в шк требуют и норм спасибо.

Добавлено через 5 минут
а как понять inc(k) что это строчка делает?

@Ev[G]eN · 09.02.2012, 21:28

Сообщение от OmgMorty

inc(k)

тоже что и k:=k+1;

@OmgMorty 3 / 3 / 0 Регистрация: 03.02.2012 Сообщений: 45
		1
	Известны оценки каждого из 18 учеников по трем предметам,найти количество троек у каждого ученика 09.02.2012, 20:02. Показов 7277. Ответов 5 Метки нет (Все метки) известны оценки каждого из 18 учеников по трем предметам,найти:количество троек у каждого ученика. 0

@Stasy1 1 / 1 / 2 Регистрация: 31.01.2012 Сообщений: 20
	09.02.2012, 20:48	2
	воот, у меня такая же задача на завтра, я не понимаю вообще:О 0

@OmgMorty 3 / 3 / 0 Регистрация: 03.02.2012 Сообщений: 45
	09.02.2012, 20:50 [ТС]	3
	да ваще хана еще никто не помогает а тебе скоко задач уже помогли сделать? 0

@OmgMorty 3 / 3 / 0 Регистрация: 03.02.2012 Сообщений: 45
	09.02.2012, 21:21 [ТС]	5
	ооо спасиб ну я немного там подкорректирую как в шк требуют и норм спасибо. Добавлено через 5 минут а как понять inc(k) что это строчка делает? 0

@Ev[G]eN Mobile Software Engineer 5381 / 1585 / 956 Регистрация: 23.01.2011 Сообщений: 3,214
	09.02.2012, 21:28	6
	Сообщение от OmgMorty inc(k) тоже что и k:=k+1; 1

Опции темы