Нахождение наибольшего числа из заданных трех.
___________________________________________
1)
const
n=10;
var
a:array[1..n]of integer;
i:integer;
begin
for i:=1 to n do
read(a[i]);
writeln;
for i:=1 to n do
write(a[i]:4);
end.
2)
var
a:array[1..1000]of real;
i,n:integer;
begin
writeln('n ?');
readln(n);
for i:=1 to n do
begin
writeln('INPUT ',i,' элемент');
readln(a[i]);
end;
writeln;
for i:=1 to n do
write(a[i]:4:2);
end.
3)
var
a:array[1..1000]of real;
i,n:integer;
begin
writeln('n ?');
readln(n);
for i:=1 to n do
begin
a[i]:=random;
write(a[i]:4:2);
end;
writeln;
end.
<em>Система</em>
<em>Структурированная, наглядная</em>
<em>Поясняет, упорядочивает, помогает</em>
<em>Предоставляет удобство в поиске информации</em>
<em>Порядок</em>
Using System;
class Calc
{
static void Main(string[] args)
{
double s = 0;
for (int i = 1; i < 11; i++)
{
s += (double)1 / i;
}
Console.WriteLine(s);
Console.ReadKey();
}
}
PHP? Зачем. Вариант на паскале:
<span>var i,j:integer;
begin
write('3x znschnoe chislo');
readln(i);
j:=(i mod 10)*100+((i mod 100)div 10)*10+i div 100;
writeln(j);
end.</span>