1. Информатика
  2. Прием на работу идет на конкурентной

Прием на работу идет на конкурентной основе, причем возраст сотрудников должен быть от 25 до 40 лет, а стаж работы не менее 5 лет.составьте программу отбора сотрудников. напишите программу, в результате выполнения которой первое введенное число уменьшается в 3 раза, если оно больше третьего, а третье становится разностью третьего и второго, если оно больше второго

alan001199 alan001199    1   02.06.2019 06:10    0

Ответы
evelina2023 evelina2023  03.07.2020 01:49
1)
var a,b:integer;
begin
readln(a,b);
if (a>=25) or (a<=40) then
if b>=5 then
writeln('Подходит')
else
writeln('Не подходит');
end.
2)
var b,c,x:integer;
a:real;
begin
readln(a,b,c);
if a>c then
a:=a/3;
if c>b then
c:=c-b;
writeln(a,' ',b,' ',c,' ');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
MrLegolas MrLegolas  17.07.2019 03:30
Пользователь работал с каталогом d документы фото 2011 весна сначала он поднялся на три уровня вверх потом спустился в каталог экзамены и после этого спустился в каталог информатика...
alenasweets230 alenasweets230  17.07.2019 03:30
Задать два массива (одномерных), заполненные соучайными целыми числами, состоящие из 10 элементов. затем вычислить элемент третьего массива, каждый из которых получается путём суммы...
РауанУченик6класса РауанУченик6класса  17.07.2019 03:30
Напишите программу: дается целое число n,напишите программу,которая проверяет(выявляет) если число n четное и если оно делится на 3 без остатка. прога на базе paskal и решается через...
valeryanka97 valeryanka97  12.06.2019 06:10
Их к тексту и вывел сочинение на после этого я прибавил громкость звука на и стал играть в любимую игру быстро двигая . получив рекордный результат я ввёл с свое имя и распечатал...
KIRILL1231321312 KIRILL1231321312  12.06.2019 06:10
Дан фрагмент программы на алгоритмическом языке нц дляn от 1 до 15 k: =n+1; m: =n; b[n,m]: =n*n-k нц дляm от 1 до 15 k: =m+3; b[n,m]: =m+k кц кц чему будет равно значение b[12,13]...
Dhbdej Dhbdej  12.06.2019 06:10
Решить. : с пусть задан массив var b: array[1..20] of integer; а)пятый элемент массива сделать равным 45; б)вывести 20-ый элемент массива; в)ввести значение 10-ого элемента массива;...
Alin4ikVP Alin4ikVP  12.06.2019 06:10
в решении двух : 1)сколько информации содержит в себе сообщение о том, что на поле 4х4 клетки одна из клеток закрашена? 2) в книге 512 страниц. сколько информации несет сообщение...
AA7777AA AA7777AA  04.05.2020 15:24
Автоматическая фотокамера производит растровые изображения размером 640х480 пикселей при этом объём файла с изображением не может превышать 170 Кбайт,упаковка данных не производится....
volkovaales0308 volkovaales0308  18.10.2020 09:18
Що являє собою програма з точки зору програміста, як ти думаєш? * 1.це набір чисел, як і будь-які дані в комп ютері2.це текст, написаний спеціальною мовою3.це текст, написаний звичайною...
marinka10k marinka10k  18.10.2020 09:18
Представьте нижеперечисленные объекты как системы авторучка, дом, часы, велосипед...

Популярные вопросы