var
a, b : real;
begin
read (a, b);
write (trunc (a * b));
end.
var
a : integer;
begin
read (a);
write (frac (a / 10));
end.
г)
var
a, b : real;
begin
read (a, b);
write (round (a + b));
end.
d)
var
a, b : integer;
begin
read (a, b);
write (a div b);
end.
e)
var
a : integer;
begin
read (a);
write (a div 1000);
end.
ж)
var
a : longint;
begin
read (a);
write (a div 24 + 1);
end.
з)
var
k : integer;
begin
read (k);
write (k div 7 + 1);
end.
и)
var
k : integer;
begin
read (k);
write (k div 60, ':', k mod 60);
end.
Решение показано в прилагаемом файле.
===== PascalABC.NET =====
begin
var a := ReadReal('Введи длину ребра');
var v := Pi * a ** 3 / (4 * Tan(Pi / 6));
Writeln('V = ',v)
end.
C++
Шапка программы (одинаковая для каждой программы)
#include<iostream>
using namespace std;
int main(){
#pragma warning(disable:4996);
#ifdef _DEBUG
freopen("Входящий файл","r",stdin);
freopen("Выходящий файл","w",stdout);
#endif
1)
int a,i;
scanf("%d",&a);
for(i=1;<a;i++){
printf("%d",i);
}
return 0;
}
2)
int a,i,s=0;
scanf("%d",&a);
for(i=1;i<=a;i++){ //Включительно с n
s += i;
}
printf("%d",s);
return 0;
}
3)
int a,i,n,s;
scanf("%d %d",&a,&n);
s= a;
for(i=0;i<n;i++){
s *= a;
}
printf("%d",s);
return 0;
}
4)
printf("20 40 80 160 320");
return 0;
}
5)
long long int a,n=0,i;
scanf("%I64d",&a);
for(i=1;i<=a;i++){ //включительно с n
n+= i;
}
printf("%I64d",n);
return 0;
}
Если вы что-то не поняли или нашли ошибку, то напишите, пожалуйста, автору.
