Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
x,y,z: longint;
begin
readln(x,y,z);
if (x> 100)or(y> 100)or(z> 100) then writeln('false')
else writeln('true');
end.
бег - бог - бок - бак - мак - маг -шаг
фефраль-месяц зимы; май-месяц весны; август-месяц лета; сентябрь-месяц осени
var sum,n,i: integer;
readln(n);
sum: =0;
for i: =1 to n do
sum: =sum+i;
writeln(sum);
readln;
Популярные вопросы