Распечатать анкетные данные студентов, получивших впервую сессию все оценки 5. В…

Question

94

Распечатать анкетные данные студентов, получивших впервую сессию все оценки 5. В паскале

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

millioner · Accepted Answer

74

millioner

08 апреля 2023

Var a,b,c,d,i: longint; s: string; m: array[1… 100000] of string; beginreadln (a); for i: =1 to a dobeginreadln (s); if s[length (s) ]='5' thenbegins[length (s) ]: ='; m[i]: =s; end; end; for i: =1 to a dobeginif m[i]<>' thenwriteln (m[i]); end; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: