begin
//1 вариант
for var i := 0 to 100 do
if i.isEven then Print(i);
Println;
//2 вариант
foreach var x in Range(0, 100, 2) do
Print(x)
end.
Uses crt;
var a,b,c : integer;
begin
writeln('Введите a (c<a*b)');
readln(a);
writeln('Введите b (c<a*b)');
readln(a);
writeln('Введите c (c<a*b)');
readln(a);
repeat
c = c*2;
until c > a*b;
writeln(a,b,c);
Очень легко: для схематического объяснения
без хорошей красочной рекламы не будет покупателей
в медицине к примеру нарисуют красивые и белые зубки и красочно оформят текст
в общем, для наглядного объяснения
1) Нужен сам рисунок
2) 64 * 64 = 4096 пикселей
512 байт = 4096 бит
4096 / 4096 = 1 бит / пиксель
2¹ = 2
Ответ: 2 цвета.
3) 128 * 128 = 16384 пикселей
4 КБайта = 4096 байт = 32768 бит
32768 / 16384 = 2 бита / пиксель
2² = 4
Ответ: 4
4) 256 = 2⁸, значит, 8 бит (1 байт) / точка
Ответ: 2400 точек.
2. =~А•~(~В•С)=~А•В+~А•~С
на фото таблица истинности задания 2