10*10cм
1200:2,54=472 точки
1200 * 1200 , 4720*4720=22 278 400 (Т. Всего)
Глубина цвета = 24 бита
24*22 278 400 = 534 681 600 Бит
534 681 600 бит ~ 64 Мбайт
Думаю что так , а если что дождись других ответов , а лучше проверь у учителя )
Если фрагмент, тогда
s:=0;
for i:=1 to 100 do
s:=s+i*i;
2) тк он не понимает смысла, а просто списывает, прямо как автор этого поста) Исполнитель работает по чтекой инструкции, не понимая алгоритма
Можно так:
Program VremjaGoda;
Var i:integer;
Begin
Writeln ('введите номер месяца');
Begin
For i:=1 to 12 do
Begin
If i=1 or i=2 or i=12
Then writeln ('зима');
Else
If i=3 or i=4 or i=5
Then writeln ('Весна');
Else
If i=6 or i=7 or i=8
Then writeln ('Лето');
Else
If i=9 or i=10 or i=11
Then writeln ('Осень');
End;
End;
End.
Можно использовать Case.
Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.