program p;
var s,a,b,c:string;
begin
s:='геометрические фигуры';
writeln('введите названия трёх геометрических фигур');
read(a,b,c);
writeln(s,': ',a,', ',b,' и ',c);
end.
Высоту можно определить по известной формуле (если проблемы с этим - см. Интернет или задайте вопрос в Геометрии, чтобы формулу вывели):
, где a,b - катеты
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a,b:real;
Write('Введите катеты через пробел: '); Read(a,b);
Writeln('h=',a*b/sqrt(a*a+b*b))
end.
Ответ:
а) 865 = 1101100001 = 1541 = 361
б) 785 = 1100010001 = 1421 = 311
в) 149 = 10010101 = 225 = 95
г) 683 = 1010101011 = 1253 = 2AB
д) 7260 = 1110001011100 = 16134 = 1C5C
#include <iostream>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
for(int i = 0; i <= 1000; i++){
if(a * i % b == c){
cout << i;
return 0;
}
}
cout << 0;
return 0;
}
<h3>
Все прошло.</h3>
2.
4000/10*8/400=8
Ответ: о)
3.
1)0,5*1024*8=4096кбит
2)4096/128=32 сек
Ответ Н)
4.
10800/(28800/8)=3
Ответ T)