Pascalabc.net если можно сделайте по простому. вы уже занимаете большое положение в обществе и пора бы вам искать собственного зама. вы решаете устроить конкурс среди n соискателей. ваш план - найти молодого человека с высшим образованием и вырастить его в классного специалиста. на данный момент требования следующие: возраст соискателя должен быть больше 22, но меньше 30 лет. количество лет, проведенных в вуз-е должно быть не менее пяти. программа должна определять, есть ли такой соискатель среди n желающих. формат входных данных вводится целое число n - количество соискателей (1 < = n < = 300) вводится n пар целых чисел: age и edu. где age - возраст соискателя (1 < = age < = 100), edu - количество лет, проведенных в вузе (0 < = edu < = 30 формат выходных данных выводится сообщение yes, если среди соискателей нашелся хотя бы один, подходящий и no - если не нашлось ни одного соискателя. примеры входные данные 3 21 8 40 2 25 4 выходные данные no
Ответы
Начнём с того, чтобы создавать презентацию в MSPowerPoint, необходимо создать слайды во вкладке "Главное" где в левом верхнем углу будет окошко создания слайда, где можно также выбрать шаблон желаемого слайда (титульный),Далее создав определённое количество слайдов мы можем приступить к работе с ними (Программа PowerPoint Обладает широкимфункционалом визуальных функций, чтобы привлекать внимание зрителя), мы можем вставить: звук,картинки,диаграммы,таблицы,видеоклипы и т.д.( и впоследствии настраивать их:воспроизведение,отображение)Можно настроит задний фон для слайдов(можно выбрать из списка шаблонов), и их анимацию для каждого по отдельности(это придаст интереса при просмотре)
Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
min, max: real;
k: integer;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100);
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет элементов}
k := 0;
for i := 1 to n do
if a[i] > 5 then k := k + 1;
writeln(k);
end.
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
min, max: real;
k: integer;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100);
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет элементов}
k := 0;
for i := 1 to n do
if a[i] > 5 then k := k + 1;
writeln(k);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Контрольные вопросы. Буду очень благодарен
Автор: elizabetmaslova3
79, 34375 в десятичной системе счисления перевести в шестнадцатиричную
Автор: pronikov90
Найти сумму целых положительных чисел от a до b кратных 4 (блок схема)
Автор: shneider1969
Как сделать зонт, очки и кошку в excel?
Автор: fmba18
begin
var n:=ReadInteger;
var age, edu: integer;
var b:=false;
for var i:=1 to n do
begin
(age,edu):=ReadInteger2;
b:=b or (age in [23..29])and(edu>=5);
end;
if b then writeln('YES') else writeln('NO');
end.
Пример:
3
21 8
40 2
25 4
NO