Выберите верные равенства 1. 1 бит =3; 2. 1 бит < 3 3. 1 бит > 3 4. 1 бит=1 5. 1 бит= 0 1) 2, 4, 5. 2) 1, 2, 3. 3) 2, 3, 4. 4) 1, 3, 5 60

Что такое 1 бит? Это 0 или 1.Всего 2 варианта. В этом сложно запутаться)

Чес гря не понимаю, в чем заморочка... Тут же все указано. Безо всЯкого С++ в экселе мона сотворить этакий "калькулятор"))

 

есть постоянная 100 (гк золота)

и переменные Х и У, их вводит, я так понял, пользователь программулечки,

дальше сии переменные суммируются

и из них считают

70% - результат сообщают польщователю с пометкой "погибшие"

26% результат сообщают польщователю с пометкой "тяжело ранено"

4% результат сообщают польщователю с пометкой "Осталось в живых"

а постоянную100 делят на эти 4% от Х+У ( то есть на к-во выживших) и сообщают результат пользователю с пометкой "досталось золота каждому из них (выживших)"

 

затем, если надо, обнулить Х и У для следкющего года. 

А результаты, если надо получить данные за два года, прибавлять к предыдущим, уже посчитанным... Ну и еще куча вариантов обработки результатов... Вдруг нужна выборка по четным годам, вдруг еще чего)))

 

 мона поставить переменную, считающую годы с каждым вводом Х и У...

 

 

В ощем - подвинтеся, дайте простор моей фантазии!))

 

 

программа на Turbo pascal 7.1:

содержание progs.pas:

{$N+}{-директива для подключения 8087 препоцессора}
uses output1; {здесь подключаем модуль output1}

var p:double;

function F1(p:double):double;
begin
F1:=Sqr(p);
end;

procedure P1(var p:double);
begin
readln(p);
p:=F1(p);
end;

begin
write('Введите длину стороны квадрата = ');
P1(p);
P2(p);
end.

 

содержание output1.tpu:

{$N+}{-директива для подключения 8087 препоцессора}
unit output1;{здесь объявляем модуль output1}

interface

procedure P2(p:double);

implementation

procedure P2;
begin
writeln('Площадь квадрата = ',p:0:5);
end;

end.