Question

Валя и Вера собрали a кг клубники. Из них b кг собрала Вера. Кто из девочек собрал клубники больше и на сколько? В паскаль пожалуйста

Answer 1

Var
  a,b,c:real;
begin
  Write('Сколько кг клубники собрали обе девочки? '); Read(a);
  Write('Сколько кг клубники собрала Вера? '); Read(b);
  c:=a-b; { собрала Валя }
  if b>c then Writeln('Вера собрала на ',b-c,' кг больше')
  else
    if c>b then Writeln('Валя собрала на ',c-b,' кг больше')
    else Writeln('Клубники собрано поровну')
end.

Пример
Сколько кг клубники собрали обе девочки? 3.4
Сколько кг клубники собрала Вера? 1.8
Вера собрала на 0.2 кг больше

Answer 2

Вот пример кода на языке Pascal, который решает эту задачу:

pascalCopy code
program StrawberryCollection;

var
  a, b: integer;
  ValyaCollected, VeraCollected: integer;

begin
  writeln('Введите общий вес клубники, собранной девочками (a): ');
  readln(a);

  writeln('Введите вес клубники, собранной Верой (b): ');
  readln(b);

  ValyaCollected := a - b;
  VeraCollected := b;

  if ValyaCollected > VeraCollected then
    writeln('Валя собрала больше клубники, чем Вера, на ', ValyaCollected - VeraCollected, ' кг.')
  else if ValyaCollected < VeraCollected then
    writeln('Вера собрала больше клубники, чем Валя, на ', VeraCollected - ValyaCollected, ' кг.')
  else
    writeln('Валя и Вера собрали одинаковое количество клубники.');

  readln;
end.

Программа позволяет пользователю ввести общий вес клубники, собранной девочками (переменная a) и вес клубники, собранной Верой (переменная b). Затем она вычисляет количество клубники, собранное Валей (ValyaCollected) как разницу между общим весом и весом, собранным Верой. Далее программа сравнивает количество клубники, собранное Валей и Верой, и выводит результат. Если Валя собрала больше, программа выводит, на сколько килограмм больше она собрала. Если Вера собрала больше, программа выводит, на сколько килограмм больше она собрала. Если обе девочки собрали одинаковое количество клубники, программа сообщает об этом.