Три ученика, Саша, Коля и Вова, прогуляли информатику. Когда их спросили, кому пришла в голову эта идея, они ответили следующее: Саша: «Я никогда не призывал к прогулу, это была идея Коли».
Коля: «Я никогда не предложил бы это первым, во всем виноват Вова».
Вова: «Эта идея пришла в голову Коле. Я просто пошел за компанию».
Внутренним чутьем учитель почувствовал, что один ученик говорит правду, второй говорит правду только наполовину, а третий – лжет. Кто из учеников был инициатором прогула? ответ дайте в виде первой буквы имени.

всего длина окружности составляет 2пr, а половина - пr

var

x: real;

begin

readln(x);

writeln(round(x));

end.

1. записать числа встолбик, так чтобы цифры самого младшего разряда чисел (единицы) расположились одна под другой (на одной вертикали).

2. вычесть цифры младшего разряда. примечание - если вычитаемое больше уменьшаемого, то следует занять единицу из старшего разряда и после этого вычесть.

3. записать результат под горизонтальной чертой на вертикали единиц.

4. повторить пункты 2 и 3 для всех разрядов с учетом переносов из старших разрядов.

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.