Mod - взятие остатка от деления (35 mod 10 == 5); div - взятие целой части от деления (35 div 10 == 3). Пишу сразу заполненные таблицы:
1) а = 23
p s p>0
23 0 true
2 3 true
0 5 false => s = 5
2) a = 32
p s p>0
32 0 true
3 2 true
0 5 false => s = 5
3) a = 109
p s p>0
109 0 true
10 9 true
1 9 true
0 10 false => s = 10
1 вариант:
<span><span>var
</span></span>
a, b, c, min: integer;
<span><span>begin
</span></span>
min:=0;
<span>
readln(a, b, c);
</span>
<span>if (a<b) and (a<c) then min:=a;</span>
<span>
if (b<a) and (b<c) then min:=b;
</span>
<span>if (c<a) and (c<b) then min:=c;</span>
<span>
writeln(min);</span>
<span>
end.</span>
2 вариант:
<span>Var a:array[</span>1..3<span>] of </span>integer;
i,z:integer;
<span><span>begin
</span></span>
<span>for i:=</span>1 to 3 do
Readln(a[i]);
z:=a[1];
<span>for i:=</span>2 to 3 do
<span><span>
begin</span></span>
<span><span /></span><span>if a[i]<z
then z:=a[i];</span>
<span>
end;</span>
<span>
writeln(z);</span>
<span>
end.</span>
Начало
|
введите значения катетов
|
ввод a,b
|
g:=sqrt(a*a+b*b)
|
вывод g
|
конец
var
N, count:integer;
begin
write('N = ');
readln(N);
count := 0;
while N > 0 do
begin
if (N mod 10) mod 3 = 0 then
count := count + 1;
N := N div 10;
end;
writeln('Count = ', count);
readln;
end.