Написати програму на pascal
велику та малу ведмедицю
Будь Ласка допоможіть. Даю 50 балів.

Ответ:

program VelykaTaMalaVedmedycya;

begin

writeln('Velyka vedmedycya i malenka vedmedycya');

writeln('Pobachyly pysmennyka.');

writeln('Velyka vedmedycya,');

writeln('Malenka vedmedycya,');

writeln('Zapytaly у нього:');

writeln('"Писати ти вмієш,');

writeln('А ми ні, як же так?!"');

writeln('Письменник усміхнувся й');

writeln('Відповів медведям:');

writeln('"Щоб писати, вам потрібно');

writeln('Багато читати!"');

readln;

end.

Ось програма на мові Pascal, яка демонструє різницю між великою та малою ведмедицями за їх вагою:

vbnet

Copy code

program bears;

var

 smallBear, bigBear, difference: real;

begin

 write('Enter the weight of the small bear (in kg): ');

 readln(smallBear);

 write('Enter the weight of the big bear (in kg): ');

 readln(bigBear);

 difference := bigBear - smallBear;

 writeln('The weight difference between the big and small bears is ', difference:0:2, ' kg.');

end.

Після запуску програма запитає вагу малої ведмедиці та вагу великої ведмедиці. Потім обчислить різницю між вагами та виведе результат на екран з точністю до двох знаків після коми.