Question

Помогите пожалуйста решить задачи в паскале. 1)найти сумму целых положительных чисел из промежутка от a до b кратных 4.a и b вводим с клавиатуры. 2)найти перевертышь трехзначного числа.

Answer 1

1)

uses crt;

var a,b,i,sum:integer;

begin

read(a,b);

for i:=a to b do

if (i>0) and (i mod 4=0) then sum:=sum+i;

write(sum);

end.

2)

uses crt;

var i,n:integer;

    s,tmp:string;

begin

read(n);

tmp:=inttostr(n);

for i:=length(tmp) downto 1 do

s:=s+tmp[i];

write(s);

end.

Для ABC Pascal. Иначе функцию inttostr нужно будет заменить на str(n,tmp)

Answer 2

Конечно, я могу помочь вам с решением этих задач на языке Паскаль. Вот примеры решений:

1. Найти сумму целых положительных чисел из промежутка от a до b, кратных 4:

pascalCopy code
program SumMultiplesOfFour;

var
  a, b, i, sum: integer;

begin
  write('Введите значение a: ');
  readln(a);
  
  write('Введите значение b: ');
  readln(b);
  
  sum := 0;
  
  for i := a to b do
  begin
    if (i > 0) and (i mod 4 = 0) then
      sum := sum + i;
  end;
  
  writeln('Сумма чисел, кратных 4, в промежутке от ', a, ' до ', b, ': ', sum);
end.

2. Найти перевертыш трехзначного числа:

pascalCopy code
program ReverseNumber;

var
  number, reversedNumber, digit: integer;

begin
  write('Введите трехзначное число: ');
  readln(number);
  
  digit := number mod 10;
  reversedNumber := digit;
  number := number div 10;
  
  digit := number mod 10;
  reversedNumber := reversedNumber * 10 + digit;
  number := number div 10;
  
  reversedNumber := reversedNumber * 10 + number;
  
  writeln('Перевернутое число: ', reversedNumber);
end.

Это примеры решений в Паскале для данных задач. Вы можете скопировать код и запустить его в среде разработки, подобной Free Pascal, чтобы проверить его работу.