Маловато баллов за такую задачу, ну да ладно...
var n:integer; nashel:boolean;
begin
n:=0;
nashel:=false;
while not nashel do if ((n mod 2 = 1)and(n mod 3 = 2)and(n mod 4 = 3)and(n mod 5 = 4)and(n mod 6 = 5)and(n mod 7 = 6)) then nashel:=true else n:=n+1;
writeln(n);
<span>end.
Ответ: 419</span>
Все очень просто:)
Решение:
2-цветное изображение, значит глубина равна 2<span>¹, а значит битовая глубина равна 1.
1280*1024=</span>1310720 точек
1310720 точек * 1 бит(глубины) = 1310720 Бит = 163840Байт = 160КБ
+1. В цехе трудятся 100 рабочих.
-2. В цехе трудятся 50 слесарей.
+3. В цехе трудятся 25 фрезеровщиков.
-4. Все токари могут иметь 3 разряд.
+5. Все рабочие третьего разряда могут быть токарями.
-6. Все рабочие третьего разряда могут быть фрезеровщиками.
-7. Все слесари могут иметь пятый разряд.
-8. Все токари могут иметь четвертый разряд.
Ответ:
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
Объяснение
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
Program Algorithm;
uses crt;
var result, a:real;
begin
for a:= 0 to 10.5 do
begin
result:=2*(Pow (a),5)*3*a*a-1/7*a+12;
a:=a+1.5;
writeline ("Your answer is ", result);
end;
end.
Как-то так, возможно не надо ставить begin/end в цикле for, потому что я уже не помню когда они нужны.
