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.
For i:= 110 downto 90 do
write(" ",i);
Программа на Паскале прилагается.
String a;
string b;
if (a.length() == b.length()) cout << "строки равны";
else
if (a.length() < b.length()) cout << a;
else cout << b;