Var sum,i:integer;
begin
sum:=0;
for i:=100 to 999 do
if (i mod 3=0) then sum:=sum+i;
writeln('Сумма трехзначных чисел кратных трем равна ',sum);
<span>end.</span>
Var a,b:integer;
begin
readln(a);
readln(b);
writeln(abs(a-b));
end.
Ответ:
Объяснение:
Передача информации: Рассказал другу параграф по истории. Передал подруге флешку с любимыми песнями.
Хранение информации. Хранение фотографий на жестком диске. Электронный учебник скачан на телефон.
Обработка информации: Решение задачи на уроке математики. Ввод текста с клавиатуры в компьюетер ( преобразование текста в довичный код)
var
z: integer;
begin
randomize;
z:=random (1000) -500;
writeln (z);
if z mod 3=0 then writeln (' число делится на 3')
else writeln (' число не делится на 3')
end.
4 Кб = 4*1024*8 = 32768 бита
433*433 = 187489 пикселей
187489/32768 ≈ 5 бит на 1 пискель2
2^5 = 32
Ответ: 32 цвета