program ex1;
var
i, a, b, otvet : integer;
begin
read (a, b);
otvet := 0;
for i := a to b do
otvet :=otvet +i*i ;
writeln ('otvet=',otvet);
end.
Саша - вышивание, Маша - танцы, Валя - рисование.
Объяснение:
Либо часть про Сашу, либо про Машу ложна (два верных утверждения быть не может). Тогда либо Саша занимается вышиванием, либо Маша - рисованием.
1) Саша занимается вышиванием. Тогда Валя не может заниматься вышиванием, её часть гарантированно ложна. Значит, верно утверждение про Машу: она не занимается рисованием, ей остаются танцы. Получается, Валя занимается рисованием.
2) Маша занимается рисованием. Остается два высказывания: Саша не занимается вышиванием, Валя - занимается вышиванием. Одно из этих утверждений истинно, другое ложно. Но если истинно первое, то обе девочки не занимаются вышиванием, если истинно второе - обе занимаются. Такого быть не может, поэтому Маша не может заниматься рисованием.
var
i, a, b, sum : integer;
begin
read (a, b);
sum := 0;
for i := a to b do
sum := sum + sqr (i);
writeln (sum);
end.