Question

Задача 1 Дана масса в граммах. Найти число полных килограмм и оставшихся грамм. Задача 2 Дано два двухзначных числа. Для каждого числа поменять цифры местами Задача 3 Дано трехзначное число. Вывести произведение всех цифр. Задача 4 Дано четырехзначное число. Найти сумму всех цифр написать программу в паскале!!! СОРОЧНО!!!!!!

Answer 1

1.

var g,kg:integer;

begin

 readln(g);

 writeln('kg: ', g div 1000);

 writeln('g: ', g mod 1000);

end.

2.

var a,b:integer;

begin

 readln(a,b);

 writeln(a mod 10, a div 10);

 writeln(b mod 10, b div 10);

end.

3.

var a:integer;

begin

 readln(a);

 writeln(a div 100 * a div 10 mod 10 * a mod 10);

end.

4.

var a:integer;

begin

 readln(a);

 write(a div 1000 + a mod 1000 div 100 + a mod 1000 div 10 mod 10 + a mod 10);

end.

Answer 2

Задача 1:

scssCopy code
program Task1;
var
  mass, kilograms, grams: integer;
begin
  writeln('Введите массу в граммах:');
  readln(mass);
  
  kilograms := mass div 1000;
  grams := mass mod 1000;
  
  writeln('Число полных килограмм: ', kilograms);
  writeln('Оставшиеся граммы: ', grams);
end.

Задача 2:

scssCopy code
program Task2;
var
  num1, num2, swappedNum1, swappedNum2: integer;
begin
  writeln('Введите первое двухзначное число:');
  readln(num1);
  
  writeln('Введите второе двухзначное число:');
  readln(num2);
  
  swappedNum1 := (num1 mod 10) * 10 + (num1 div 10);
  swappedNum2 := (num2 mod 10) * 10 + (num2 div 10);
  
  writeln('Первое число с поменяными цифрами: ', swappedNum1);
  writeln('Второе число с поменяными цифрами: ', swappedNum2);
end.

Задача 3:

typescriptCopy code
program Task3;
var
  number, digit1, digit2, digit3, product: integer;
begin
  writeln('Введите трехзначное число:');
  readln(number);
  
  digit1 := number div 100;
  digit2 := (number div 10) mod 10;
  digit3 := number mod 10;
  
  product := digit1 * digit2 * digit3;
  
  writeln('Произведение всех цифр: ', product);
end.

Задача 4:

bashCopy code
program Task4;
var
  number, digit, sum: integer;
begin
  writeln('Введите четырехзначное число:');
  readln(number);
  
  sum := 0;
  digit := number;
  
  while digit > 0 do
  begin
    sum := sum + (digit mod 10);
    digit := digit div 10;
  end;
  
  writeln('Сумма всех цифр: ', sum);
end.

Пожалуйста, обратите внимание, что это программы на языке Pascal, а не на языке Python или другом популярном языке программирования.