Pascal
var
m : integer;
a,b,y : real;
begin
writeln ('menu:');
writeln ('1) y= (a+b)2');
writeln ('2) y= a^2-b^2');
writeln ('3) y= 1/(a+b)')
writeln ('a=');
readln(a);
writeln ('b=');
readln(b);
readln (m);
case m of
1: y := (a+b)*2;
2: y :=sqr(a)-sqr(b);
3: y := 1/(a+b);
end;
writeln ('y=',y:3:2);
end.
<span>Основные этапы развития вычислительной техники Самая популярная классификация предлагает выделить основные этапы развития вычислительной техники по хронологическому принципу: Ручной этап. Он начался на заре человеческой эпохи и продолжался до середины XVII столетия. В этот период возникли основы счёта. Позднее, с формированием позиционных систем счисления, появились приспособления (счёты, абак, позднее - логарифмическая линейка), делающие возможными вычисления по разрядам. Механический этап. Начался в середине XVII и длился почти до конца XIX столетия. Уровень развития науки в этот период сделал возможным создание механических устройств, выполняющих основные арифметические действия и автоматически запоминающих старшие разряды. Электромеханический этап – самый короткий из всех, какие объединяет история развития вычислительной техники. Он длился всего около 60 лет. Это промежуток между изобретением в 1887 году первого табулятора до 1946 года, когда возникла самая первая ЭВМ (ENIAC). Новые машины, действие которых основывалось на электроприводе и электрическом реле, позволяли производить вычисления со значительно большей скоростью и точностью, однако процессом счёта по-прежнему должен был управлять человек. Электронный этап начался во второй половине прошлого столетия и продолжается в наши дни. Это история шести поколений электронно-вычислительных машин – от самых первых гигантских агрегатов, в основе которых лежали электронные лампы, и до сверхмощных современных суперкомпьютеров с огромным числом параллельно работающих процессоров, способных одновременно выполнить множество команд. Этапы развития вычислительной техники разделены по хронологическому принципу достаточно условно. В то время, когда использовались одни типы ЭВМ, активно создавались предпосылки для появления следующих. - Читайте подробнее на SYL.ru: </span><span>https://www.syl.ru/article/169938/new_istoriya-razvitiya-vyichislitelnoy-tehniki-otechestvennaya-vyi...</span>
Решение - в прилагаемом файле.
Var a:array [1..10] of integer;
i,p:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(10);
if (a[i] mod 3 = 0) and (p=0) then p:=i; end;
writeln(a);
for i:=p to 9 do
a[i]:=a[i+1];
a[10]:=0;
writeln(a);
end.
149(10)=10010101(2)
Если не задана разрядность, будем обходиться минимально необходимым количеством разрядов.
Тогда переводим в дополнительный код:
1 01101011
Если нужно дотянуть до 2х байт, то:
11111111 01101011