MS (Memory Save) - кнопка означает сохранить число, отображенное в данный момент на дисплее калькулятора в память.
MR (Memory Read) - кнопка означает считать число из ячейки памяти и вывести его на дисплей.
MC (Memory Clear) - кнопка означает стереть данные из ячейки памяти.
M+ - прибавить к числу из памяти число, отображенное на дисплее и результат записать в память вместо предыдущего.
<span>M- - вычесть из числа в памяти число, отображенное на дисплее калькулятора и результат записать в память.</span>
Вычисление производим по формуле
function Sp(x,y:real):real;
begin
Sp:=x*y
end;
var
a,b,c,S:real;
begin
Write('Введите размеры сторон a,b,c: ');
Read(a,b,c);
S:=2*(Sp(a,b)+Sp(a,c)+Sp(b,c));
Writeln('Площадь поверхности равна ',S)
end.
<em><u>Тестовое решение:</u></em>Введите размеры сторон a,b,c: 2.5 3.15 4
Площадь поверхности равна 60.95
Нужно соединить 7 и 8, или 6 и 10, или 9 и 10.
Или непрямые ребра: 6 и 7, или 6 и 8, или 7 и 9, или 7 и 10, или 8 и 9.
Длина цикла во всех трех случаях равна 7.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
SeqGen(ReadInteger('Кол-во='),2,x->3*x-1).Println
end.
<u><em>Тестовое решение:</em></u>
Кол-во= 10
2 5 14 41 122 365 1094 3281 9842 29525
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(20,-10000,10000); a.Println;
Writeln('Кол-во пар: ',a.Pairwise.
Where(x->((x.Item1+x.Item2) mod 3=0) and
((x.Item1+x.Item2) mod 9<>0)).Println.Count)
end.
<u><em>Тестовое решение:</em></u>
-1932 -9879 3600 -6873 6098 -308 -3663 3180 257 4339 -778 -1245 -9361 -7036 -2972 5592 4844 87 -980 -4458
(-1932,-9879) (-9879,3600) (3600,-6873) (6098,-308) (-3663,3180) (257,4339) (4339,-778)
Кол-во пар: 7
