Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a=b) and (a=c) and (c=b)
then writeln('переменные =')
else
begin
a:=a+10;
b:=b+10;
c:=c+10;
end;
end.
C/C++
#include <iostream>
#define _USE_MATH_DEFINES
#include <math.h>
using namespace std;
int main(){
double angle;
cout << "Enter angle: ";
cin >> angle;
angle = angle * (M_PI / 180);
printf("\nsin: %.4f", sin(angle));
printf("\ncos: %.4f", cos(angle));
return 0;
}
Единица измерения расстояния
// PascalABC.NET 3.0, сборка 1128
begin
Writeln('Сумма чисел от 100 до 999 равна ',Range(100,999).Sum)
end.
<u><em>Тестовое решение:</em></u>
Сумма чисел от 100 до 999 равна 494550
Var n,k:integer;
begin
k:=0;
while k>=0 do
begin
k:= k+1;
for n:=1 to k do
begin
write('*');
end;
writeln;
end;
<span>end.</span>