<u>Microsoft QBasic 1.0</u>
CONST n = 30
DIM a(1 TO n) AS INTEGER
RANDOMIZE TIMER
CLS
FOR i = 1 TO n
a(i) = 1000 * RND
PRINT a(i);
NEXT i
s = 0
FOR i = 1 TO n
IF a(i) MOD 15 <> 0 THEN s = s + a(i)
NEXT i
PRINT
PRINT s
450*60*80*1 байт = 2160000 байт
2160000 байт /1024 = 2109,37 Кбайт / 1024 = 2,05 Мбайт
Ответ: Непоместится
Считаем
4(-3+1+1)=-4 (х)
4(-4+3-2)=-12 (у)
Чтобы вернуттся в исходную точку нужно поменять знаки.
Т.е. ответ: 4)(4,12)
Var i : Integer;
Begin
For i:=100 to 999 do
If i=(sqr(i) mod 1000) then Writeln(i,' * ',i,' = ',sqr(i));
end.
Результат:
376 * 376 = 141376
625 * 625 = 390625