89
чвапролорпавывапролорпавапролорпавапролдлорпапрол
Цикл while - делай, пока условие истинно
т.е. пока i <= 9 программа выполняет блок внутри этого цикла в операторных скобках begin .. end;
P=1, i=3:
i (=3) <= 9 ? да => p:=1*(3 div 3)=1*1=1, i:=3+1=4
i (=4) <= 9 ? да => p:=1*(4 div 3)=1*1=1; i:=4+1=5
и т.д. пока верно условие i<=9
P.S. div - деление нацело, т.е. 5 div 2=2, в пятерке содержится 2 раза число два, в ответ идет 2
а вот 5 mod 2 = 1 это деление с остатком
10- это точно, так как присвоено
рандом(5) - это значит что У от 0 до 4
т.е. У может принимать значения от 10 до 14
Простой калькулятор на pascal
Pascal
//////////
var
a, b:Integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Ваш результат сложения:', a + b);
writeln('Ваш результат вычитания:', a - b);
writeln('Ваш результат умножения:', a * b);
writeln('Ваш результат деления:', a / b);
end.
1.Отправка смс/ммс.
2.Снятие денег со счета моб.телефона.
3.Блокировка экрана.