247,128,346,427...выбирай любое.
1029
максимально удаленные друг от друга цифры это 1 и 0, после них идут 2 и 9
<span>0 не может стоять в начале числа, т.к. оно не будет 4-х значным</span>
var x,y:real; a:integer;
begin
writeln('Введите номер :');
readln(a);
case(a) of
1:
begin
writeln('x = ');
readln(x);
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
writeln('x = ');
readln(x);
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
writeln('x = ');
readln(x);
y := Power(x,2);
writeln('y = ',y);
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
Я еще приведу пример кода на PascalABC.NET так для сравнение
begin
var a:=ReadInteger('Введите номер: ');
case(a) of
1:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sin(x) + Power(x,2));
end;
2:
begin
var x:=ReadInteger('x = ');
writeln('y = ',sqrt(cos(x)-2*Power(x,3)));
end;
3:
begin
var x:=ReadInteger('x = ');
writeln('y = ',Power(x,2));
end;
else
Writeln('Под таким номером формулы нет!');
end;
end.
' Basic
' For ... Next
dim yi as integer
dim n as integer
dim z as double
dim sum as double
dim zi as double
sum = 0
print "Введите n: "
input n
for yi = 1 to n
if ((yi > 15) or (yi < 0)) then
z = 2
else
z = yi
end if
zi = (sqr(z)-z)*(sqr(z)-z)
sum = sum + zi
next
print "Сумма = ", sum;
'-----------------------------------------------------------
' While Wend
dim yi as integer
dim n as integer
dim z as double
dim sum as double
dim zi as double
sum = 0
yi = -1
print "Введите n: "
input n
while (yi < n)
if ((yi > 15) or (yi < 0)) then
z = 2
else
z = yi
end if
zi = (sqr(z)-z)*(sqr(z)-z)
sum = sum + zi
yi = yi + 1
wend
print "Сумма =", sum;