1.
using System;
public class Test
{
public static void Main()
{
int n;
double x, s=0;
Console.Write("n = ");
n = int.Parse(Console.ReadLine());
Console.Write("x = ");
x = double.Parse(Console.ReadLine());
for (int i=1; i <= n; i++) s = x*x/(2*i);
Console.WriteLine("s = {0}", s);
Console.ReadKey();
}
}
2.
using System;
public class Test
{
public static void Main()
{
int n, i=0;
double x, s=0;
Console.Write("n = ");
n = int.Parse(Console.ReadLine());
Console.Write("x = ");
x = double.Parse(Console.ReadLine());
while (i<n){
i++;
s = x*x/(2*i);
}
Console.WriteLine("s = {0}", s);
Console.ReadKey();
}
}
3.
using System;
public class Test
{
public static void Main()
{
int n, i=0;
double x, s=0;
Console.Write("n = ");
n = int.Parse(Console.ReadLine());
Console.Write("x = ");
x = double.Parse(Console.ReadLine());
do {
i++;
s = x*x/(2*i);
}
while (i<n);
Console.WriteLine("s = {0}", s);
Console.ReadKey();
}
}
Пример:
n = 5
x = 1.2
s = 0.144
В предыдущем вопросе я написала решение.
program z;
var a,b,c,d,e,x,g,h:integer;
begin
write('Введите пятизначное число');
read(x);
a:= x mod 10;
b:= x mod 100;
b:= b div 10;
c:= x mod 1000;
c:= c div 100;
d:= x mod 10000;
d:= d div 1000;
e:= x mod 100000;
e:= e div 10000;
if a mod 2=0 then h:=a
else g:=a;
if b mod 2=0 then h:=h+b
else g:=g+b;
if c mod 2=0 then h:=h+c
else g:=g+c;
if d mod 2=0 then h:=h+d
else g:=g+d;
if e mod 2=0 then h:=h+e
else g:=g+e;
writeln(' Сумма нечётных цифр равна ', g);
write(' Сумма чётных цифр равна ', h);
<span>end.</span>
Var
n, max, i, d: integer;
begin
readln(n);
max := 0;
for i := 1 to n do
begin
readln(d);
if (d mod 10 = 2) and ((max < d) or (max = 0)) then
max := d;
end;
writeln(max);
end.
26,26 ( нужно делить его на 2 до тех пор, пока у тебя не останется в ответе 1)=11010, при этом у тебя получится 01011, но тебе нужно поменять его, получится не с лева на право, а с права на лево.
Program prl;
uses crt;
var i,n,summa:integer;
srednee:real;
a:arra[1..100] of integer;
begin
write('Введите кол-во четных элементов');
readln(n);
summa:=0;
for i:=1 to n do begin
write('Введите ',i,' элемент:');
readln(A[i]);
summa:=summa+A[i];
end;
srednee:=summa/(n div 2);
writeln('Среднее арифметическое',srednee:3:2);//
readln;
end.
