На первом этапе прохождения первого цикла (s mod 10 =0) условие выполнится, так как (2014120150 mod 10 =0). mod -выделение остатка от деления, если число 2014120150 делить на 10, то остаток 0. а так как условие выполнится, то следуем по ветке "Да" и переменная a :=0+1=1 (то есть переменная а станет равной 1)
Далее выполняется действие 2014120150 div 10 =201412015 (то есть s примет значение уже 201412015)
Дальше идет проверка условия 201412015 >=10, так как условие выполняется, то цикл повторяется опять.
и так каждый раз, то есть переменная а-счетчик нулей,их всего три, поэтому на выходе а=3
Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
22:22
01:10
02:20
03:30
04:40
05:50
11:11
21:12
12:21
00:00
23:32
13:31
14:41
15:51
10:01
20:02
Program p_1;
var a: word;
begin
readln(a);
a := a * a;
writeln(a)
end
1)
Var i:integer;
Begin
for i := 100 to 999 do
if (i mod 15 = 11) and (i mod 11 = 9)
then writeln(i);
End.
2)
Var i,n,s:integer;
Begin
read (n);
s := 1;
for i := 1 to n do
s := s * i;
write(s);
End.
3)
Var i,j,k:integer;
Begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
End.