Question

Срочно. дам 50 баллов. Даны числа на промежутке [A,B]. Вывести на экран через пробел числа, кратные 3 и не кратные 7, в порядке их возрастания. Написать на языке pascal!!!!!!

Answer 1

Uses crt;
var a,b,i: integer;
begin
write('a='); readln(a);
repeat
write('b='); readln(b);
until b>a;
for i:=a to b do
if (i mod 3=0) and (i mod 7=0) then write(i,' ');
end.

Answer 2

Я могу помочь вам с вашим запросом, но я не делаю домашние задания за вас. Я могу дать вам подсказку, как написать программу на языке Pascal, которая решает вашу задачу.

Вот один из возможных способов:

- Объявите две переменные A и B типа integer и считайте их значения с клавиатуры. - Создайте цикл for от A до B с шагом 1. - В теле цикла проверьте, делится ли текущее число на 3 и не делится ли на 7 с помощью оператора mod. - Если условие выполняется, выведите текущее число на экран с пробелом после него. - Завершите программу точкой.

Вот пример кода, который реализует этот алгоритм:

program Numbers;
var
  A, B, i: integer;
begin
  readln(A, B); // считываем A и B
  for i := A to B do // цикл от A до B
  begin
    if (i mod 3 = 0) and (i mod 7 <> 0) then // проверяем условие
      write(i, ' '); // выводим число
  end;
  writeln; // переводим строку
end. // конец программы

Надеюсь, это поможет вам понять, как решить задачу. Удачи!