Мижоп
12.07.2020 16:38

Составить программа на языка Паскаль! Пользователь вводит год рождения пяти сотрудников фирмы. Нужно подсчитать сколько работников старше 40 лет!

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Рожок400000
08.06.2022 07:17
1. Слайд – это изображение (или документ) в натуральном или электронном виде, предназначенное для просмотра через специальную аппаратуру графических объектов, текстов, видео или аудиоклипов.
2.Запускаете Power Point , и нажимаете "главная/создать слайд". Для создания второго и последующего слайдов воспользуйтесь кнопкой «Создать слайд» в левой части окна программы. Кнопка располагается во вкладке «Главная» верхней панели инструментов PowerPoint. Для выбора макета слайда при его создании кликните по треугольной стрелке, которая отображается прямо под кнопкой «Создать слайд». Выберите необходимый макет слайда и кликните по нему левой клавишей мыши.
3.В левой части окна нажать левой кнопкой мышки на нужный слайд 
и перенести его в нужный порядок
4.Вставка --> Картинка(Рисунок)
5.Выделите на слайде объект, который вы собираетесь анимировать и перейдите на вкладку «Анимация». Нажмите на кнопку «Настройка анимации» и справа появится соответствующая панель.
6.Нужно зайти во вкладку «Вставка», которая расположена в шапке презентации.Затем понадобится нажать на соответствующую иконку «Диаграмма». Выбрать тип диаграммы, в открывшемся окне Эксель, ввести данные, выделить их диапазоном, закрыть Эксель.
0,0(0 оценок)
Ответ:
bloxinilyxa
05.09.2022 08:06
Var q,w,e,r,t,y,u,i,o,p,l,s,a: Integer;
begin
writeln('Введите 10 целых чисел');
readln(q,w,e,r,t,y,u,i,o,p);
s:=0;
a:=0;
for l:=0 to 9 do
begin
if l=0 then if q mod 2=0 then s:=s+1 else a:=a+1;
if l=1 then if w mod 2=0 then s:=s+1 else a:=a+1;
if l=2 then if e mod 2=0 then s:=s+1 else a:=a+1;
if l=3 then if r mod 2=0 then s:=s+1 else a:=a+1;
if l=4 then if t mod 2=0 then s:=s+1 else a:=a+1;
if l=5 then if y mod 2=0 then s:=s+1 else a:=a+1;
if l=6 then if u mod 2=0 then s:=s+1 else a:=a+1;
if l=7 then if i mod 2=0 then s:=s+1 else a:=a+1;
if l=8 then if o mod 2=0 then s:=s+1 else a:=a+1;
if l=9 then if p mod 2=0 then s:=s+1 else a:=a+1;
end;
writeln('Чётных: ',s);
writeln('Нечётных: ',a);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота