Var a,b:longint;beginreadln(a,b);writeln(a+b);writeln(a-b);writeln(a*b);
end.
100 div 5 = 20
__________________________________________
<span>Предложенные варианты ответов: бита, 3 бита, 4 бита, 5 бит
3 бита</span>
В программе для каждого из трёх введённых слов подсчитывается количество одинаковых букв, стоящих рядом.
Значения переменных после выполнения приведенного фрагмента программы:
slovo='ИНФОРМАТИКА'
n=11 (длина последнего слова)
k=0
На экран будет выведено:
no
yes
no