Ответ:
var a,b,k:integer;
begin
readln(a,b);
for k:=a to b do if(k mod 2=1) then write(k, ' ');
end.
Объяснение:
Надеюсь будет понятно!!!
Ответ:
p:=random(...)+...
Объяснение:
... - это интервал который тебе нужен
(x не принадлежит P) v (x принадлежит Q) v (x не принадлежит A) v (x принадлежит R) как любезно упростил preceptor
в коментариях
т.е. чтоб выражение было истинным, то достаточно чтоб хоть одно выражение в скобочках было истинным
Менять мы можем только А, то есть нужно добитьсяя истиности для (x не принадлежит A) при любом х
а это А = пустое множество
var a,b,c,max: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max = ',max);
end.
Пример:
12 45 31
max = 45
6*х+7*у алгоритм 1 начало 2 описание переменных (х,у,с - вещественные 3 Ввод данных 3 выражение(с=6*х+7*у)4 вывод данных 5 конец