202.192.131.31 ПРАВИЛЬНЫЙ ЭТОТ
Но ни в коем случае не
202.131.312.19 ( так как не может быть больше 255 число) ЗАПОМНИ
Var min, max, x: byte;
begin
max=0;
min:=100;
for x:= 10 to 99 do begin
if (x mod 10)+(x div 10)=7 then begin
writeln (x);
if x>max then max:=x;
if x
Две строки по три ячейки = 6
#include <iostream>
int main()
{
double x, R = 1;
std::cin >> x;
int i = 1;
do
{
R = (x - i - 1) / (x - i) * R;
++++i;
}
while (i != 63);
std::cout << R;
}<span>
</span>
//PascalABC.Net 3.2
{1}
begin
var sum:=0;
for var i:=1 to readinteger('Введите кол-во чисел: ') do sum+=readinteger;
print ('Сумма:', sum);
end.
{2}
function f(n: integer):=1/n;
begin
var sum:=0.0;
for var i:=1 to readinteger ('Введите n: ') do sum+=f(i);
write ('S = ', sum);
end.
{3}
begin
var count:=1;
for var i:=1 to readinteger('Введите кол-во часов: ') div 3 do count*=2;
write ('Кол-во амеб: ', count);
end.
{4}
begin
var sum:=0.0;
var x:=readreal ('Введите x: ');
for var i:=1 to readinteger('Введите N: ') do sum+=sin(i*x);
write (sum);
end.
{5}
function pow(a, n: integer):biginteger;
begin
var sum:=1;
for var i:=1 to n do sum*=a;
result:=sum;
end;
begin
write (pow(readinteger, readinteger));
end.