Третяя правильная ну последняя
program number7;
uses crt;
var a,b: integer;
begin
clrscr;
a := 342;
b := 512;
a := a div 10 mod 10;
b := a + b mod 10;
writeln ('17 div 3 = ',b);
readln
end.
b=6
Цикл 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 это деление с остатком
Известняк белый, светло-серый, желтоватый. твердый, не имеет блеска<span>
гипс белый, светло серый, твердый, не имеет
песок разного цвета(черный, желтый итд), рыхлый, блеск имеет
нефть </span>буро-коричневый, бесцветный, жидкий. не имеет<span>
кварц </span>Бесцветный, белый, фиолетовый, серый, жёлтый, коричневый, твердый. имеет Стеклянный блеск.<span>
базальт темные цвета, твердый, </span>блеск<span> светло-желтоватого или светлозеленоватогоцвета</span><span>
гранит. </span><span>Цвет гранита имеет очень широкий цветовой диапазон. Твердый, не имеет</span>