uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
Голем лишнее. Потому что это персонаж мифологии, а остальные это города в разных уголках.
Выглядит просто :)
И так...
Допустим переменная 'a' = 15, заходим в цикл. Отнимаем от переменной 2. Если переменная 'a' больше 1, то повторяем цикл. И так до того момента пока от переменной не останется 0 или 1. Если переменная равна 0, это значит что переменная четная. А если 1, то переменная нечетная. И так делаем со всеми переменными :)
1280x1024x8= 10485760 бит, делим на 8, будет 1310720 байт, делим на 1024, будет 1280кб или 1мб