*div - целая часть от деления
mod - остаток от деления
1. Если число 192 разделим на 100, получим число 1,92. Целая часть=1 ⇒ а=1.
2. Для нахождения b сначала делим число 192 на 100 и пишем его остаток (остаток=92). Затем остаток делим на 10 (92 : 10 = 9,2) и пишем целую часть ⇒ b=2.
3. Чисто 192 делим на 10 и пишем остаток ⇒ с=2.
4. В итоге, мы a, b и c оказались равными цифрам нашего числа, а S их складывает ⇒ S ищет сумму цифр числа.
Элт. монитор
Электронно-лучевые приборы — класс электровакуумных электронных приборов, предназначенных для преобразований информации, представленной в форме электрических или световых сигналов. В приборах используются сфокусированные потоки электронов, управляемые по интенсивности и положению в пространстве.
VAR a:array[1..10] of integer;
i,s:integer;
BEGIN
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(3);
if a[i]=1 then s:=s+1
end;
writeln ('Массив a: ');
for i:=1 to 10 do write (a[i],' ');
writeln;
writeln ('Элементов массива, равных одному: ',s)
END.
Var x,y: real;
begin
read(x);
y:=(2*x)/(4-x);
writeln('y=',y);
end.
Вторая задача
var k,i,p:integer;
begin
p:=1;
read(k);
for i:=1 to k do
if i mod 2=1 then p:=p*i;
writeln( 'p=',p);
end.