Var A,B,C,M,P:real;
begin
write('Введите A = ');Readln(A);
write('Введите B = ');Readln(B);
write('Введите C = ');Readln(C);
M:=A;
If B<M Then
M:=B;
if C<M Then
M:=C;
P:=(A*B*C)/M;
Write('P = ',P);
end.
//PascalABC.NET
var
m,e,o,nu,fi : integer;
begin
var n := ReadInteger('Введите число элементов массива');
var a := ArrRandomInteger(n, -10, 10);
for var i := 0 to n-1 do begin
if a[i] mod 2 = 0 then
e += 1
else
o += 1;
if a[i] = 0 then nu += 1;
if a[i] = 5 then fi += 1
end;
writeln('Содержимое массива:');
a.println;
writeln('Количество чётных: ', e);
writeln('Количество нечётных: ', o);
writeln('Количество нулей: ', nu);
writeln('Количество пятёрок: ', fi)
end.
1. 3)
2. 3) номер столбца или строки от 0 до 7, 7 в двоичном 111, 3 бита т.е. поле - это номер строки + номер столбца = 3+3 = 6 бит
3. 4) в байте 8 бит, 32/8
4. 4)
5. 2)
6. 3)
7. 3)
8. 1)
9. 4)
10. 1)
11. 4)
12. 2)
13. 3)
14. 3)
15. 3)
16. 4)
17. переключения между запущенными приложениями
18. C:\DAY\GAMES\tetris.com
19. txt
20. текстовые редакторы
21. C:\MY\GAMES\lines.exe
3 клетки вниз, 2 влево, 1 вниз, 3 вправо, 4 вниз, 1 влево, 3 вверх, 1 влево, 7 вниз, 1 вправо, 1 вниз, 2 влево, 4 вверх. Надеюсь так)
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqReal('Введите длины сторон:',3).OrderBy(t->t).ToArray;
if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Треугольник прямоугольный')
else Writeln('Треугольник не прямоугольный')
end.