Var
a, b, c: integer;
begin
read(a, b, c);
writeln('P = ',a * b * c);
writeln('S = ',a + b + c);
writeln('A = ',(a + b + c) / 3);
end.
var sr,br:real;
Begin
read(sr,br);
writeln(pi*(br*br-sr*sr):5:2);
End.
Берем это число. Начинаем делить на 3 в цикле. К какой-либо переменной присваиваем +1.
Ну делим, проверяя на наличие остатка (должен быть равен 0)
Потом, если остаток образуется, выходим из цикла, выводим "ложь". Иначе проверяем, если переменная, к которая считала кол-во делящихся элементов делится нацело на 3 без остатка, выводим "истина" иначе ложь. Два цикла
Я на с++ пишу, скорее всего не подойдет
Var a,b,sum:integer;
begin
readln(a,b);
for b:=b+1 to a do
sum:=sum+b;
writeln(sum);
<span>end.</span>
Ответ: 10
Объяснение:
Выполняем всё по алгоритму. DIV -- это лишь оператор целочисленного деления, а MOD -- оператор взятия остатка от деления.