// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin var l: =readseqinteger('введите через пробел три цифры',3).tolist; if l.all(x-> x=0) then writeln('хотя бы одна цифра должна отличаться от нуля') else if l.all(x-> x.isodd) then writeln('хотя бы одна цифра должна быть четной') else begin var d3: =l.where(x-> x.iseven).min; l.removeat(l.findindex(x-> x=d3)); var s: =l.orderby(x-> x); writeln(s.last,s.first,d3) end end. примеры: введите через пробел три цифры 2 0 5 520 введите через пробел три цифры 0 5 0 500 введите через пробел три цифры 3 9 5 хотя бы одна цифра должна быть четной
maruska90
17.12.2021
Источники непрерывной: 1. гитара- может издавать звук любой высоты. переход от тона к тону происходит плавно и непрерывно. 2. телевизор- луч кинескопа плавно и непрерывно перемещается по экрану, и яркость отдельных участков меняется плавно. 3. картина- нарисованная художником с использованием большого количества оттенков красок. источники дискретной: 1. пианино- переход от ноты к ноте осуществляется скачком. 2. музыкальный проигрыватель компакт дисков. 3. мобильные телефоны.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Поменяйте между собой значения двух переменных x, y, не используя дополнительной переменной.
varx,y: real; beginreadln(x); readln(y); x: =x+y; y: =x-y; x: =x-y; writeln(x,' ',y)end.