Изначально i = 4
Проверяем 4<10? Да, значит прибавляем 3 и получаем 7.
Проверяем 7<10? Да, значит прибавляем 3 и получаем 10.
Проверяем 10<10? Нет, значит цикл больше не выполняется.
Ответ: Тело цикла выполнится два раза
Пусть это и не уравнение, но смысл понятен:
Var a,b:real;
Begin
Write('a = ');Read(a);
Write('b = ');Read(b);
if a<>b then Write('Да')
else Write('На ноль делить нельзя!')
End.
1) с = 2 + 12 = 14
2) с = 1 + 14 = 15
3) с = 1
Var a:integer;
begin
write('введите число ');
read(a);
if ((a div 10 + a mod 10) mod 3=0) writeln('YES') else write ('NO');
end.
1/512 мегабайт = 0,001953125 мегабайт
0,001953125 мегабайт *1024 = 2 килобайта
2 килобайта * 1024 = 2048 байт
2048 байт * 8 = 16384 бит
ответ: 16384 бит