For i in range(1, 100):
if i*i % 13 == 0:
print i
Информация!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Убираем 100, дальше считать парами...1+99=100...2+98=100 считайте сколько пар, сумма которых 100 и прибавляете последнюю 100.
49*100=4900
4900+100=5000
плюс средняя цифра 50 останется без пары)
5000+50=5050
или ничего не убирать)
тогда сумма будет
100+1=101
99+2=101..........и т.д.
всего пар будет 100:2=50
50*101=5050
Uses crt;
var a, b, c, max: integer;
begin
readln(a,b,c);
writeln(a, ' ', b, ' ', c);
max := a;
if max < b then max := b;
if max < c then max := c;
writeln('max= ',max);
end.
Тело:
var a,b,c:integer; m:boolean;beginm:=True;read(a,b,c);if (a+b<0) or (b+c<0) or (a+c<0) then m:=False;write(m);end.