Работая компьютером моя профессия - учитель. я учу детей, и взрослых людей информатике. мои ученики знают бортовые кнопки чтобы включить или выключить меня. знают как отправлять получать сообщение через специальные программы. или ещё только учатся как это делать правильно. в ходе чего сталкиваются с различными трудностями, неполадками, несовместимостями, сбоями, атаками вирусов, перебоями в интернет соединении, тонкостями в работе с клавиатурой и операционной системой, преодалеванием непреодолимого желания отвлечся от своего на игры или ещё что. преодолевая их, мои ученики получают опыт и становятся ближе к своей цели - уже своей профессии.
Спасибо
Ответ дал: Гость
type
person=record
fam: string;
imya: string;
day: integer;
end;
var
a: array[1..50] of person;
i,n,z: integer;
begin
write('n='); readln(n);
for i: =1 to n do
begin
write('fam-'); readln(a[i].fam);
write('imya-'); readln(a[i].imya);
write('day-'); readln(a[i].day);
end;
write('z-'); readln(z);
for i: =1 to n do
if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);
readln;
end.
Ответ дал: Гость
количество базовых цветов обозначим за n. из всех базовых цветов будет складываться какой то один цвет, соответственно количество всевозможных цветов можно вычислить по формуле n=2^(2*n)
Популярные вопросы