Excel vba заполните ячейки al, a2, a3 рабочего листа любыми вещественными числами. составьте программу, - id973971320200721 от beresnevarseny 21.07.2020 17:14

Question

Информатика: Excel vba заполните ячейки al, a2, a3 рабочего листа любыми вещественными числами. составьте программу, которая округлит эти числа до одного знака после запятой, причем после запятой может быть только цифра 0 или 5 (например, 6,44 или 6,7134 программа заменит на 6,5; 6,21 или 5,789 на 6,0).

beresnevarseny · Accepted Answer

var   a, b, c, d, i, n, p: integer;   x, y: real; begin   writeln( Задача 1, введите n = );   read(n);   for i := 1 to n do     if i mod 2 = 0 then       x := x + 1 / (2 * i + 1)     else x := x - 1 / (2 * i + 1);   writeln( Sum = , x);     writeln( Задача 2, введите a, b, c, d = );   read(a, b, c, d);   for i := a to b do     if i mod c = d then writeln(i);     writeln( Задача 3, введите n и n чисел = );   read(n);   a := 0; b := 0; c := 0;   for i := 1 to n do   begin     read(p);     if p = 0...

MOGZ ответил