Question

Написать решение программ в ПАСКАЛЕ 1. Найти сумму 1 и 3 цифр четырехзначного числа, произведение крайних цифр. 2. Петров и Васечкин купили х штук мороженного и пошли на урок. Васечкин съел k% от всего купленного мороженного, а Петров - половину того, что съел Васечкин. Остальное забрала Ольга Петровна. Сколько съел каждый из ребят и сколько забрала учительница?

Answer 1

Ответ:

1.

program z1;

var a:integer;

begin

write ('Введите четырехзначное число ');

readln (a);

writeln ('Сумма 1 и 3 цифр равна ', a div 1000 + a mod 100 div 10);

writeln ('Произведение крайних цифр равно ', a div 1000 * (a mod 100 mod 10));

end.

2.

program z2;

var x,k:integer;

begin

write ('Введите сколько мороженого купили Петров и Васечкин ');

readln (x);

write ('Введите сколько процентов мороженого съел Васечкин ');

readln (k);

writeln ('Васечкин съел ', x*k/100,' мороженого');

writeln ('Петров съел ', x*k/100/2,' мороженого');

writeln ('Учительница забрала ', x-x*k/100-x*k/100/2,' мороженого')

end.

Answer 2

Для решения этих задач в Паскале, нужно написать соответствующие процедуры или функции. Вот примеры решений для обеих задач:

1. Найти сумму 1 и 3 цифр четырехзначного числа, произведение крайних цифр:

pascalCopy code
program SumAndProduct;

var
  num, firstDigit, thirdDigit, sum, product: integer;

begin
  writeln('Введите четырехзначное число: ');
  readln(num);

  firstDigit := num div 1000;
  thirdDigit := (num div 100) mod 10;

  sum := firstDigit + thirdDigit;
  product := firstDigit * (num mod 10);

  writeln('Сумма первой и третьей цифр: ', sum);
  writeln('Произведение первой и последней цифр: ', product);
end.

2. Расчет количества съеденного мороженого:

pascalCopy code
program IceCreamConsumption;

var
  totalIceCream, percentEaten, vasichkin, petrov, olgaPetrovna: real;

begin
  writeln('Введите общее количество мороженного (x): ');
  readln(totalIceCream);

  writeln('Введите процент съеденного мороженного Васечкиным (k%): ');
  readln(percentEaten);

  vasichkin := (percentEaten / 100) * totalIceCream;
  petrov := 0.5 * vasichkin;
  olgaPetrovna := totalIceCream - (vasichkin + petrov);

  writeln('Васечкин съел: ', vasichkin:0:2, ' шт.');
  writeln('Петров съел: ', petrov:0:2, ' шт.');
  writeln('Ольга Петровна забрала: ', olgaPetrovna:0:2, ' шт.');
end.

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