Дано натуральнок k от 1 до 180.написать программу для определения цифры, которая находится в k-той позиции последовательности . формат входных данных файл содержит число k-позиция искомой цифры. формат выходных данных выходной файл содержит искомую цифру. пример входных и выходных файлов task1.in task1.out 4 1 8 3

187

481

Посмотреть ответы 2

Ответы на вопрос:

nicoguy2

Информатика

4,6(81 оценок)

Var k: integer; f: text; begin assign(f, 'task1.in'); reset(f); readln(f, k); close(f); assign(f, 'task1.out'); rewrite(f); if (k mod 2 = 0) then writeln(f, ((k-1) div 2) mod 10) else write(f, (k div 2) div 10 + 1); close(f); end.

shmkvnst17

Информатика

4,5(86 оценок)

Sub f1() dim a, b, c, d, cord, x1, x2 as single a = inputbox(" x^2") b = inputbox(" x") c = inputbox(" свободный") d = 0 d = (b * b) - 4 * a * c if d < 0 then msgbox ("решений нет") cord = sqr(d) x1 = (-b + cord) / (2 * a) x2 = (-b - cord) / (2 * a) if d = 0 then msgbox cstr(x1) msgbox ("корни квадратного уравнения равны " + cstr(x1) + "и" + cstr(x2)) end sub