Question

ДАЮ 70 БАЛЛОВ! СРОЧНО! Помогите составить программу на языке Паскаль. "Дано число (вводится пользователем с клавиатуры). Если число делится на 3 или оканчивается на 7, то вывести сообщение: Число удовлетворяет условию. В противном случае вывести сообщение: Заданное число не соответствует условию."

Answer 1

Ответ:

Pascal

Объяснение:

PascalВыделить кодvar n, c: integer; procedure Kol(n: integer; var c:integer);begin while n > 0 do begin n := n div 10; c += 1; end;end; begin readln(n); Kol(n, c); write(c);end.

Answer 2

Конечно, вот программа на языке Паскаль, которая выполняет указанные условия:

pascalCopy code
program CheckNumber;
var
  num: integer;
begin
  writeln('Введите число:');
  readln(num);
  
  if (num mod 3 = 0) or (num mod 10 = 7) then
    writeln('Число удовлетворяет условию.')
  else
    writeln('Заданное число не соответствует условию.');
end.

Программа позволяет пользователю ввести число с клавиатуры, затем проверяет, делится ли оно на 3 или оканчивается на 7, и выводит соответствующее сообщение в зависимости от результата проверки.