Var
i,n,a:integer;
Begin
Writeln('Введите число');
Readln(n);
for i:= 1 to n do
a:=a+i;
Writeln('Квадрат суммы этих чисел равен ',sqr(a));
End.
#include<stdio.h>
#include<iostream>
using namespace std;
int main(){
int arr[8];
for(int i=1;i<=8;i++){
cin>>arr[i];
}
for(int i=1;i<=8;i++){
if(i%2==0){
cout<<arr[i]<<" ";
}
return 0;
}
Код на c++
Равносторонний треугольник - это треугольник, у которого все стороны равны. Равны также и его высоты.
Нужно знать формулы из математики:
h = a√3/2, S = a²√3/4, r = a√3/6, R = a√3/3.
Вот программа (в Паскале не различают прописные и строчные бувы, поэтому радиус вписанной окружности обозначим как r1):
var a,s,h,r1,R:real;
begin
write('a=');readln(a);
s:=a*a*sqrt(3)/4;
h:=a*sqrt(3)/2;
r1:=a*sqrt(3)/6;
R:=a*sqrt(3)/3;
writeln('S=',s:3:2,' h=',h:3:2,' r=',r1:3:2,' R=',R:3:2);
end.
Program bip;
var a,q,n:integer;
begin
writeln('введите четыре числа');
readln(a);
q:=0;
n:=1;
while (n<>4) do
begin
if (a>q) then
q:=a;
readln(a);
n:=n+1; end;
writeln('большее из пяти ',q)
;<span>end.</span>
1)
500 кбайт вес * 1024 * 8 = 4096000 бит вес.
4096000 бит вес / 128000 бит сек = 32 сек.
2)
256000 бит сек * (2 мин * 60 сек в мин) сек = 30720000 бит вес / 8 / 1024 = 3750 кбайт вес.
3)
3000 кбайт вес * 1024 * 8 / (5 мин * 60) = 81920 бит сек.