{Пользователь вводит целые числа. Пока он не введёт число большее 15,
в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число.
Если же введённое число больше 15, то цикл необходимо завершить.}
Выведите на экран, все числа делящиеся на 3 из дипазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
var i:integer;
begin
for i:=35 to 117 do
begin
if ((i mod 3) = 0) then
write(i, ' ')
else if ((i >= 45) AND (i <= 99)) AND ((i mod 2) <> 0)
then
write(i, ' ');
end;
readln(); readln();
end.
Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.
var i,a:integer;
begin
writeln('write your num');
read(a);
if (a >= 100) then
for i:=a downto 1 do
write(i, ' ')
else
for i:=1 to a do
write(i, ' ');
readln(); readln();
end.
var m,s:integer;
f:boolean;
begin
writeln('Vvedite chislo M');
readln(m);
s:=1;
if (s = 1) then
writeln('soobchenie 1');
if (s = m) then
writeln('soobchenie 2');
end;
-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.