Нужна с блок-схемами! Алгоритм есть, просто сделайте для меня блок-схему! Задание №1.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace LabWork2._1
{
class MainClass
{
static double CalcIteration(double x, int n) => 1 / (n * Math.Pow(x, n));
public static void Main()
{
double current, f = 2.0, x = 3;
int n = 1;
do
{
current = CalcIteration(x, n);
f += current;
n += 2;
Console.WriteLine(current);
}
while (Math.Abs(current) > 0.0001);
Console.ReadLine();
}
}
}
Задание №2
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace LabWork2_2
{
using System;
public class Program
{
public static void Main()
{
var rand = new Random();
int x = rand.Next(3, 10);
int t = 1200;
int count;
if (t % x == 0)
{
count = t / x;
}
else
{
count = t / x + 1;
}
int ans;
if (count % 20 == 0)
{
ans = count / 20;
}
else
{
ans = count / 20 + 1;
}
Console.WriteLine("ответом будет:");
Console.WriteLine(ans.ToString());
Console.ReadLine();
}
}
}
N, s, i: Integer;
s1: real;
begin
readln(N); {общий ввод для всех задач}
if N < 0 then
writeln('Задача 1. N=', 0)
else writeln('Задача 1. N=', N + 4);
s := 0;
for i := 1 to n do
s := s + i;
writeln('Задача 7. 1+2+3+…+N=', s);
write('Задача 9. Последовательность от N до 1 = ');
for i := n downto 1 do
write(i, ' ');
writeln();
s1 := 0;
for i := 1 to n do
s1 := s1 + i / 10;
writeln('Задача 12. 0,1+0,2+0,3+..+N/10=', s1);
write('Задача 13. Последовательность квадратов от 1 до N = ');
for i := 1 to n do
write(i * i, ' ');
writeln();
write('Задача 14. Последовательность первых N нечетных чисел = ');
for i := 1 to n do
write(2 * i - 1, ' ');
writeln();
if N > 0 then
writeln('Задача 20. N степень 3 = ', frac(ln(n) / ln(3)) = 0);
s := 0;
for i := 1 to n do
if n mod i = 0 then
s := s + i;
writeln('Задача 24. Сумма всех натуральных делителей числа N (сключая 1 и N) = ', s);
end.