Нужно переписать код с pascal, на вот сам код: const
nas = 1000000;
var
b, b1, bz, z, f: integer;
begin
b := 3;
b1 := 3;
z := 2;
for var i := 2 to 100 do
begin
b := b + 1;
bz := bz + (z - b);
b1 := b1 + b;
z := z + 2;
if (i > 10) and (i mod 2 =0)
then f := f + 1;
end;
writeln(‘общее колво обратившихся’, b1);
writeln(‘общее колво умерших’, f);
writeln(‘общее колво вылеч’, z - f);
writeln(‘ ‘);
writeln(‘% обратившихся’, (b1 * 100)/ nas);
writeln(‘% умерших’, (f * 100)/ nas);
writeln(‘% вылеч’, (z-f) * 100)/ nas);
end.

225

251

Посмотреть ответы 1

Ответы на вопрос:

Misha45456

Информатика

4,7(12 оценок)

10•10 - это 100 точек всего.1байт-это каждая точкат.к. палитра 256 цветовзначит получается 100байт информационного обьема

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

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