var
a, b: real;
begin
readln(a, b);
if (a < b) then
writeln(a)
else
writeln(b);
<em>//Или проще: writeln(min(a, b));</em>
end.
С псевдокодом я не особо знаком, но...
ввести числа а и б
если а меньше б, то вывести а
иначе вывести б
var a,b:integer; {a-число, b-количество знаков числа}
begin
readln(a);
while a<>0 do
begin
b:=b+1;
a:=a div 10;
end;
writeln(b);
end.
Ответ:
если перевести то будет:10001001,тоесть 3 единицы
1. Var s,i:integer;
Begin
S:=0;
For i:=1 to 1000 do
If (i mod 5<>0)and (i mod 7 <>0) Then s:=s+1;
Writeln(s);
Readln;
end.